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PREFACE 



This manual describes the extensions for use with the BASIC/RT-11, 
BASIC/PTS-11, and BASIC/CAPS-11 systems. The extensions enable you to 
utilize PDP-11 lab peripherals such as LPSll, ARll, and DRll-K. 
Unless stated otherwise, the descriptions of all routines in this 
manual apply to the systems mentioned above. 

The routines for these peripherals are provided in library form that 
can be linked with a user program. The user should have a programming 
knowledge of BASIC and some understanding of the peripherals. 

The following table describes the documentation conventions used in 
this manual. 

Convention Meaning 

<LF> Line feed 

<CR> Carriage return 

or CTRL Used with special system control 

characters. Depress CTRL key while 
striking designated character. 

@ Alt mode 

Square Brackets [ ] Optional arguments are enclosed. 

Lower case letter or Value to be supplied by user. May 
lower case letter be any valid arithmetic expression, 
followed by a digit 
(a,b,xO,yl) 

Lower case letter String to be supplied by user. May 
followed by a dollar be string constant (enclosed in 
sign (a$,x$) quotes) or variable (A$) . 

Upper case letter Numeric variable whose value will 
(A,B,X,Y) be determined by call or an array 

name . 

Y axis The vertical axis. 

X axis The horizontal axis. 

The following manuals are necessary references for this manual: 

RT-11 System Reference Manual 
DEC-11-ORUGA-C-D 

v 



BASIC-11 Language Reference Manual 
DEC-11-LIBBA-B-D 

BASIC/RT-11 Language Reference Manual 
DEC-11-LBACA-D-D 

EASIC/PTS User's Manual 

DEC-11-LPTBA-A-D 

BASIC/CAPS-11 User's Manual 
DEC-11-LIBCA-A-D 

LPSll User 's Guide 

DEC-11-HLPGA-C-D 

ARll User 's Guide 

DEC-11-HARUG 

DRll-K Interface User's Guide and Maintenance Manual 
EK-DRllK-MM-001 



VI 



CHAPTER 1 
INTRODUCTION 



BASIC Extensions support the RT-11, CAPS-11, and PTS-11 systems, and 
the following hardware: 

LPSll Laboratory Peripheral System 
ARll Analog Real-Time • Inter face 
DRll-K Digital Input/Output Interface 

The Laboratory Peripheral System (LPS) support can utilize LPSll, ARll 
and DRll-K to sample and display data from analog to digital 
converters, digital input/output, or external events. LPS support 
contains 23 routines to control LPSll, ARll and DRll-K. These 23 
routines are divided into five categories according to their function. 
Each category is supplied as a module. The first module, LPSO, is the 
main module which contains all necessary support routines for using 
the other four modules. This module is required but the other four 
are optional . 

The support for the peripherals consists of a library of routines that 
can be controlled by a user program through a CALL statement. The 
format of the CALL statement is: 

CALL "name" (argument list) 

Under BASIC/CAPS-11 , the routines can also be called by a statement of 
the form: 

name (argument list) 

The function and limitation of each routine is described in detail in 
the following chapter. 
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CHAPTER 2 

LABORATORY PERIPHERAL SYSTEM SUPPORT 
(LPSll, ARll, DRll-K) 



2 . 1 GENERAL FEATURES 

Laboratory Peripheral System support for BASIC-11 allows a user to 
utilize the LPS hardware which includes LPSll, ARll and up to 16 
DRll-K. LPS support enables the sampling and displaying in a 
real-time environment of a variety of data from analog to digital 
converters, digital input/output, and external events. Sampling is 
controlled by crystal clocks and/or Schmitt triggers; it is possible 
to specify such parameters as sampling rate and response time thus 
allowing maximum flexibility. 

NOTE 

In a multiple DRll-K system, there must 
be a difference of lO(octal) between 
each unit in the interrupt and vector 
address. The status register address 
decreases by 10 (octal) while the vector 
address increases by lO(octal). 

All LPS routines are issued by the BASIC CALL statement allowing 
experienced PDP-11 assembly language programmers to easily include or 
modify the routines to meet particular (or special) requirements. 



2 . 2 DESCRIPTION OF ROUTINES 

The BASIC Extensions contain 23 routines to control the following 
options on the LPSll hardware: 

LPSAD-12 12-bit ADC, sample and hold, 8-channel 

multiplexer, and LED (light emitting diodes) 

6-digit programmable decimal readout display. 
LPSAD-NP Direct memory access (DMA) option for the LPSAD-12 

ADC. 
LPSAG Four differential preamplifiers with +or-lV input. 

Maximum of 4 LPSAGs per LPSll-S system. 
LPSAG-VG Four independently selectable multigain 

differential preamplifiers. 
LPSAM 8-channel expansion multiplexer. 
LFSSH Second sample and hold for a dual sample and hold 

configuration . 
LPSKW Programmable real-time clock and two Schmitt 

tr iggers . 
LPSVC Display control including two 12-bit DACS . This 
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LABORATORY PERIPHERAL SYSTEM SUPPORT 

controller is capable of handling Digital's VR14 
and VR20 scopes. 
LPSDR 16-bit buffered digital I/O with drive 
capabilities and two programmable normally open 
(n.o.) relays. LPSDR cannot be used if DRll-K is 
used . 

The 23 routines are divided into 5 categories according to their 
function. Each category is supplied as a separate module. 

The following list is a summary of the routines available for 
controlling LPS hardware and a brief description of each: 

MODULE LPSO (This module is always required.) 

USE Defines array(s) to be used for storage of 

data . 
ACC Allows access to an entire array. 
RDB Returns the next data point from a specified 

buffer . 

MODULE LPSl (ANALOG TO DIGITAL CONVERSION) 

ADC Initiates an A/D conversion on a specified 

channel and returns the result to the user. 
RTS Performs real-time buffered/clocked sampling 

of the A/D. 
LED Displays a numeric value on the Light 

Emitting Diodes. 
CVSG Returns the next data value and gain in two 

separate variables. 

MODULE LPS2 (REAL-TIME CLOCK) 

SETR Sets clock running at a designated rate and 

mode . 
SETC Sets clock running at a designated rate and 

initiates some action after a specified 

number of seconds have elapsed. 
HIST Performs histogram sampling using a timed 

Schmitt trigger. 
VvAIT Waits for a specified event to occur. 
RTIM Returns the value of the internal software 

clock counter . 

MODULE LPS3 (DIGITAL I/O) 

DIR Reads Digital Input register. 

DOR Writes Digital Output register. 

DRS Performs sampling of the Digital Input 

register . 
REL Closes or opens one of two relays. 
IPK Reads a value from a register or writes a 

value into a register. 

MODULE LPS4 (DISPLAY) 

CLRD Defines display buffer and optionally clear 

or scale the data in it. 
PUTD Puts data into data buffer. 



2-2 



LABORATORY PERIPHERAL SYSTEM SUPPORT 



DIS Displays data with incrementing x and 

variable y whenever BASIC is waiting for I/O. 
FSH Displays a single complete sweep of data with 

incrementing x and variable y. 
DXY Displays data with variable x and y values 

whenever BASIC is waiting for I/O. 
FXY Displays a single complete sweep of data with 

variable x and y values. 

Module LPSO is the main module and contains not only the USE, ACC, and 
RDB routines, but also all necessary support routines for the other 
modules. Therefore, it must be included, although the other modules 
are optional . 

Data buffers used by the LPS routines differ from the normal arrays in 
BASIC in that they use only one word of storage per data element 
rather than two. This is because all LPS data is no larger than 
2**16-1 and can be stored as unsigned 16-bit data. All data buffers 
must be defined by a USE routine before they are accessed by any other 
LPS routines. The USE routine allows the user to partition and make 
equivalent arrays for ease in displaying and manipulating common data. 
All data buffers defined in the USE routine are circular with internal 
pointers keeping track of where data is to be placed next and/or 
retrieved . 



2 . 3 MODULE LPSO (REQUIRED MODULE) 



2.3.1 Defining the Buffer (USE) 




The USE routine defines buffer areas for use with the ACC, RDB, RTS , 
HIST, DRS, CLRD, PUTD , DIS, FSH, DXY and FXY routines. This routine 
sets up internal pointers allowing circular buffering and data overrun 
and/or nonexistent data checking. A maximum of five buffers may be 
specified, all of which must be given in a single USE statement. All 
areas defined in the USE statement must have been previously 
dimensioned in a DIM statement. 

The format of the USE call is: 



CALL "USE"(A[(i)] ,[B[(j)] , ,C[(f)]]) 



where 



A,B,C are the names of previously dimensioned array(s). 

May be 5 different arrays or array names may be 

repeated . 
i,j,f represents a valid subscript for the array or 

which indicates the entire array. 

The USE routine defines buffer areas required for storage of data. 
These areas may be a partitioned array which can be made equivalent to 
one large array. The following examples illustrate all aspects of the 
USE routine. Note that the size of an area defined in a DIM statement 
is one half that desired. This is because BASIC uses two words to 
store data whereas the LPS data is stored in one word. 
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Example : 

Define areas A, B, and C to have 100, 200, 
respectively. 

:i. I) ;i; M fiiC^ao) vB( i oo ) s; c ( 1 50 ) 

20 CALL "USE" ((-^vBA:) 



and 300 data points 



Example : 

Define area A to consist of three parts, the first having 10 data 

points and the second and third having 20 each. Then define a final 

area having access to all of the array A (including the zero subscript 
element) . 

NOTE 

Read the USE statement from left to 
right establishing the separate areas 
based on previously defined members of 
the same array. Only when the starting 
address of the next array is less than 
the previous one will entire access to 
the array be allowed by the following 
array. 

The subscripts in the declaration are used to define pseudo partition 
names which can be used in other LPS statements which require arrays. 

10 DIM A(2;:D 

20 CALL " USE " ( A < 1 ) y A CI. 1 ) y A ( 3 :l. ) y A ) 

In this example, each declaration of the array A has a unique 
description. A, which is equivalent to A(0) , is different than A(l), 
A(ll) , and A(31) . The following figure illustrates the partitioning 
of the array A due to the preceding example. 



A(l) 

A(ll) 

A(31) 



) A(0) OR A 



y 



In the example, the partitioning occurs as follows: A(l) defines a 
buffer array starting at position A(l) in the array A and ending at 
the last position in the array. Since A(ll) is declared immediately 
following it, the end of the array for A(l) is redefined to be one 
less than the A(ll) position. At this point, A(l) goes from the 1st 
position in the array to the 10th, and A(ll) goes from the 11th 
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position in the array 
following A(ll) , A( 
the array to the 30th 
50th. Now the part 
part is called A(l) a 
called A(ll) and i 
A(31) and is also 20 
example is A or A(0) 
entire array A. This 
A(0) is less than 
A(31) , and a new par 
begins at A(0) and 
to continue from this 
further partitioning 
declaration in the US 
the form USE(A,A(0) 
zero length. Since t 
reference to it lat 
array A and not A(0) . 
is useless. 



to the 50th. When A(31) is declared immediately 
11) is redefined to go from the 11th position in 

and A(31) goes from the 31st position to the 
itioned array consists of three parts. The first 
nd is 10 locations in size. The second part is 
s 20 locations in size. The third part is called 
locations in size. The final declaration in the 
(both are equivalent) , which allows access to the 

happens because the position in the array A of 

the last declaration in the USE statement, i.e., 
titioning is started. This new partitioning 
proceeds until the end of the array A. The rules 

point are the same as previously discussed and 
could be defined if necessary. Note that every 
E statement must be unique, i.e., a statement of 
) results in the first array A having an area of 
he second array is not unique in name, any 
er by other LPS statements actually refers to the 
Since A has zero length, the buffer declaration 



2.3.2 Allowing Access to a Buffer (ACC) 




The ACC routine allov/s full access to the specified array by the RDB 
routine. The form of the call is: 



CALL "ACC" (A[ (i) ] ) 



where 



A[(i)] is a buffer previously declared in a call to the 
USE routine. 

A call to ACC resets all buffer pointers of the array A to allow full 
access to it by the RDB and PUTD routines. The PUTD pointer is placed 
at the end of the array and the RDB pointer is placed at the 
beginning. Since the PUTD pointer is placed at the end of the array, 
the buffer is considered full. 

Example : 

Allow full access to the array H and the buffer area of array A. 

10 DIM A(25) ,H(20) 

20 CALL "USE" (A(l) ,A(11) ,A(31) ,A,H) 

30 

40 



100 CALL "ACC" (H) 

110 CALL "ACC" (A(ll) ) 

120 

130 
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2.3.3 Returning Data from a Buffer (RDB) 




A call to the RDB routine returns the next data value from the 
specified buffer in the target variable. The value returned from RDB 
contains the data value with the gain in the most significant digits. 
The returned data is formatted. The form of the call is: 



where 



CALL "RDB" (A[ (i) ] ,B) 



A[(i)] is a buffer previously defined in a call 

USE routine. 
B is the target variable. 



to the 



A call to the RDB routine returns values in B of 65535 to for good 
data. A -1 will be returned if the data is bad (defined as software 
data overrun). A -2 will be returned if there is no data. A -3 will 
be returned if a hardware data overrun occurs. 




If either pointer passes beyond the buffer, it is reset to the 
beginning of the buffer. If a RDB routine is executed when no data is 
available, the pointer is not advanced. 

If a software data overrun occurs (that is, when there is no room in 
the ring buffer for data from the RTS , HIST, PUTD or DRS routine) , 
then all subsequent calls on the RDB routine will return a -1. This 
will occur if the ring buffer is not large enough to contain all the 
data or the data is not removed from the ring buffer as fast as it is 
added . 

When the referenced buffer contains analog sampling data (RTS 

function) , the values returned in B are in the range to 4095 for the 

LPSll and to 1023 for the ARll, with the gain in the most 
significant bits. 

When the referenced buffer contains a clocked histogram sampling (HIST 
function), the values returned in B are in the range to 65535. 
These values are either the number of ticks accumulated or the number 
remaining depending on the clock mode. 

When the referenced buffer refers to digital I/O data (DRS function) , 
a value between to 65535 is returned in B from the next position in 
the specified buffer. 

Example : 

Assume that the array X has 100 data values previously entered by an 
RTS routine. Print out the data making sure that data overrun did not 
occur and that 100 data points were indeed taken. 



^1. fi 



P'OR 1=1. TO -1 9Fi 
Chi! i . "Pr:.R'- .: V, Z ■' 
IF- Z> = a THTW tl.iH 

IF z=--i thp:w 79 

If-" Z = -S THFN 9 8 
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60 IP Z=~~: THEN ilGi 

7'ei PRINT "RING RIJF-FER OVFRRUN.. SRMPLING TOO FfiST".; I 

F!0 GO TO ±5B 

<=|0 PRINT "NO r:.RTfi RT EVFNT VET"; I 

:1 00 GO TO 140 

1.10 PRINT "HRRDWRRF DRTR OVERRUN.. SRMPLING TOO FRST% I 

120 GO TO 150 

130 PRINT Z 

1 40 NFKT I 

1,50 CONTINUE 

1G0 END 

RERH-V 



2 . 4 MODULE LPSl (A/D CONVERSION AND NUMERIC READOUTS) 
2.4.1 Analog to Digital Conversion (ADC) 



ADC 



The ADC routine initiates an A/D conversion from the specified 
channel, waits for it to complete, and returns the conversion as a 
floating point result in A (in the range to 4095 for the LPSll and 
1023 for the ARll) . The A/D cannot be currently involved in a 
real-time sampling (RTS) operation. 

The form of the call is: 

CALL "ADC" (b,A[ ,i] ) 



where 



specifies the channel and must be in the range 
from to 63 for LPSll and to 15 for ARll. 

is the target variable and will contain the 
floating point conversion from the analog input. 

The value returned is as follows: 

A=data/gain (where gain=l, 4 ,16 , 64) For LPSll 

with gain. 

A=data When the ARll is in 

bipolar mode. A is 
always positive. 

A=-data When the ARll is in 

unipolar mode. A is 
always negative. 

specifies the gain setting for the requested A/D 
conversion on an LPSll, or the range (bipolar or 
unipolar) on an ARll. 



when 

i=0 

= 1 

= 2 



software auto-gain ranging 

gain of 1 for LPSll (-5V to +5V) ; bipolar 
range for ARll (-2.5V to +2.5V). 

gain of 4 for LPSll (-1.25V to +1.24V); 
unipolar range for ARll (0 to +5V) . 
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=3 gain of 16 for LPSll (-0.3V to +0.3V); 
illegal for ARll. 

=4 gain of 64 for LPSll (-0.078V to +0.078V); 
illegal for ARll. 

The default value is 1. 



NOTE 

On an LPSll, the LPSAG option must 
be present when i is not equal to 
1, otherwise the value returned in 
the target variable will be 
unspecified (i.e., dependent on 
hardware) . 



Example : 

Sample the A/D from channels 4 and 5, use a gain of 1, and save the 
results in arrays A4 and A5 respectively. Assume 100 samples are to 
be taken. 

:l.0 DIM A4(:l,00) s-Al^HiLOO) 

20 FOR :i; ====:!. TO :i.00 

30 CALL "ADC" (4!-A4(:i;) ) 

40 CALL "ADC <SyA5(I) ) 

^0 NEXT I 



2.4.2 Real-Time Sampling (RTS) 




The RTS routine performs real time buffered/clocked sampling of the 
A/D. 

The form of the call is: 

CALL "RTS" (A[(i)] ,cl,c2,n,m[,i]) 



where 



A[(i)] 



cl 



c2 



is a buffer previously defined in a call to the 

USE routine. The sampling will be stored in this 

buffer. The data pointers in the ring buffer 
will be reset before sampling is begun. 

determines the first channel to be sampled. Must 
have a value between and 15 for ARll or LPSll 
with gain other than 1 specified; or to 63 for 
LPSll with no gain or gain equal to 1. This 
value must be between and 7 when dual sample 
and hold is required. 

determines the number (or number of pairs) of 
sequential channels which will be sampled. The 
maximum is 16 for ARll or LPSll with gain other 
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than 1 specified; and 64 for LPSll with no gain 
or gain equal to 1. 



NOTE 

The sum of CI and C2 cannot be greater 
the 64. 



n determines the total number of samplings. 

m determines the mode of sampling. 

i specifies the gain setting for the requested A/D 
conversion . 

when 

i=0 software auto-gain ranging 

=1 gain of 1 for LPSll (-5V to +5V) ; bipolar 
range for ARll (-2.5V to +2.5V). 

=2 gain of 4 for LPSll (-1.25V to +1.25V); 
unipolar range for ARll (0 to +5V) . 

=3 gain of 16 for LPSll (-0.3V to +0 . 3V) ; 
illegal for ARll. 

=4 gain of 64 for LPSll (-0.078V to +0.078V); 
illegal for ARll. 

The default value is 1. When (cl + c2) is greater 
than 16, it is illegal for i to be equal to zero 
or greater than 1. 



NOTE 

On an LPSll, the LPSAG option must be 
present when i is not equal to 1, 
otherwise the value returned in the target 
variable will be unspecified (i.e., 
dependent on hardware) . 



The A/D can be enabled in a variety of modes depending on the options 
specified. The normal mode of operation (m=0) causes the A/D to 
sample whenever Schmitt trigger 1 fires for the LPSll or external 
start for the ARll. To enable other options, merely add their code 
number to the mode. The following table describes options available 
(all options are normally disabled) ;: 
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Table 2-1 
Mode Options in RTS Sampling 



Code 


Option 





Normal operation, reads on Schmitt trigger 1 for 




LPSll or external start for ARll. 


+ 1 


Enable burst mode (used only with DMA) 


+ 2 


Enable clock, disable Schmitt trigger 1 (used with 




LPSAD12, LPSKW or ARll) 


+ 4 


Enable dual sample and hold for LPSll only (used with 




LPSSH) 


+ 8 


Enable DMA for LPSll only (used with LPSAD-NP) 



The burst mode can be used with Direct Memory Access only and the dual 
sample and hold mode can be used with the Direct Memory Access. The 
dual sample and hold, and DMA options can only be used on the LPSll. 
The following table lists all possible values for m and the modes 
enabled . 



Table 2-2 
Mode for Values of ra 



m 


Mode 


LPSll 


ARll 


Schmitt trigger 1 or external start 

Clock 

Dual Sample and Schmitt trigger 1 

Dual Sample and Clock 

DMA and Schmitt trigger 1 

DMA and Burst 

DMA and Clock 

DMA and Burst 

DMA, Dual Sample, and Schmitt trigger 1 

DMA, Dual Sample, and Burst 

DMA, Dual Sample, and Clock 

DMA, Dual Sample, and Burst 




2 

4 

6 

8 

9 

10 

11 

12 

13 

14 

15 



2 



The A/D is started by a clock overflow or the firing of Schmitt 
trigger 1 (external start for ARll) . Pointers are used to determine 
if data exists in the buffer arrays or if data wrap-around occurs. 
Since data is stored in circular buffers (excluding DMA operations) , 
pointers are used to ensure that the incoming data rate does not 
exceed the removal rate. Data returned as -1 indicates ring buffer 
overrun; data returned as -2 indicates no data exist; data returned 
as -3 indicates hardware overrrun (interrupt service too slow) . The 
buffer pointers are reset initially before the sampling operation 
begins . 

A/D channels are sampled on every clock overflow or firing of Schmitt 
trigger 1 (external start for ARll) with the result stored in 
consecutive data cells. Data is stored in a format identical to that 
read from the A/D (bits 0-11 for data and bits 11-12 for gain) . When 
a clock overflow or Schmitt trigger firing occurs, the A/D samples the 
first channel specified by cl and then samples the next c2 minus 1 
consecutive channels. Sampling then continues until n clock overflows 
or Schmitt triggers have been received. If n is specified as zero, 
any previous RTS sampling will be disabled. 

In dual sample and hold mode, parameter c2 is the number of pairs of 
channels to read per sampling. Parameter n defines the number of 
samplings. There are 2*C2 elements per sampling. 
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DMA operations may use dual sample and hold. DMA allows direct 
hardware storage of A/D results from only one channel into a specified 
buffer array. A maximum of 4096 data may be taken at any one time 
with removal of data allowed only when the buffer is completely 
filled. 



NOTE 

When DMA is used with dual sample and 
hold, the parameter C2 must be 1, BASIC 
automatically assigns the value of 1 to 
C2 and any other number that is assigned 
to C2 will be ignored. 



RTS operations do not interfere with sampling operations other than 
ADC (i.e., DRS and HIST routines) and all can be in progress 
simultaneously. You must set up the clock by making a call to the 
SETR routine before calling the RTS routine. 

Example : 

Set up the A/D to read data from channels through 3 and store the 
results in the array A. Schmitt triggers are to be used to fire the 
A/D. Note that a dimension of 100 allows 200 data points. Since 4 
channels are to be sampled, 50 Schmitt triggers will be required to 
complete the request. 



■.) 


:o 1 M 


i^-i ( 1 ( 





CALL 


"u; 





CALL 


"R-\ 



fiwOfAv :l. 00*:2/4fr0 



2.4.3 Display on the Light Emitting Diodes (LED) 




A call to the LED routine displays the floating point value of the 
specified expression on the LEDs (Light Emitting Diodes) of the LPSll. 
Up to six positive or five negative digits can be displayed in the 
LEDs. An optional decimal point can also be included. Numbers which 
cannot be accurately displayed (i.e., E numbers or 6-digit negative 
numbers) are shown as all minus signs. 



This routine acts as a NOP (no-operation) when 
PERPAR.MAC for an ARll system. 

The form of the call is: 



$AR11 is defined in 



CALL "LED" (a) 



where 



Example : 



the expression or the value to be displayed 
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Display the value 5.632 on the LEDs 

20 CALL "LED" (A) 



or 



10 CALL "LED" (5<. 632) 



2.4.4 Returning A/D Data from Buffer (CVSG) 



CVSG 



The CVSG routine returns the unformatted data value sampled by the RTS 
routine in one variable and the gain in a separate variable. A -1 
will be returned if the data is bad (defined as overrun) . A -2 will 
be returned if there is no data. A -3 will be returned when a 
hardware data overrun occurs. 

The form of the call is: 

CALL "CVSG" (V,I) 

where 



V 



is the target variable and contains the floating 
point conversion from the analog input in the 
range to 4095 for LPSll and to 1023 for ARll. 

returns the gain setting of the requested A/D 
conversion . 



when 
= 1 

= 2 

= 3 



gain of 1 for LPSll (+or-5V) ; bipolar 

range for ARll (+or-2.5V). 

gain of 4 for LPSll (H-or-l . 25V) ; unipolar 

range for ARll (0 to +5V) . 

gain of 16 for LPSll (+or-.3V); illegal 
for ARll. 

gain of 64 for LPSll (+or-.078V); illegal 
for ARll. 



2.5 MODULE LPS2 (REAL-TIME CLOCK) 



2.5.1 Setting the Clock Rate (SETR) 



SETR 

A call to the SETR routine sets the clock running in the specified 
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mode and at the designated rate. The interrupt enable is always set 
(except mode 8 and above) . 

The form of the call is: 

CALL "SETR"' (r ,m,p) 

where 



determines the rate of the clock, 
determines the mode of the clock. 



p is the preset value of the clock counter. The 
preset value must be less than 65535 (decimal) for 
the LPSKW and 255 (decimal) for the ARll. 

The following preset values are illegal for the indicated rates in 
interrupt mode. 



Rate 
1 



Illegal preset values 

<150 

<180 (for systems with memory management option) 

<:15 

<18 (for system with memory management option) 

==1 



NOTE 

All values of rate and preset are legal in 
interrupt mode. 



The following tables describe the rates and modes determined by the 
values of r and m. 

Table 2-3 
Selecting the Clock Rate 



Values of r 


Rate 





No rate selected 




1 


1 MHz 




2 


100 kHz 




3 


10 kHz 




4 


1 kHz 




5 


100 Hz 




6 


Schmitt trigger 1 (external event for ARll) | 


7 


Line frequency (50 Hz or 60 Hz) 
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Table 2-4 
Selecting the Clock Mode 



Values of m 



Mode 



Single interval mode. Counter counts from preset value to 
overflow and stops. 

1 Repeated interval mode. Counter counts from preset value to 
overflow, transfers buffer/preset register to the counter, 
and begins again. 

2 External event timing mode. The counter is free running, 
and a pulse from Schmitt trigger 2 transfers contents from 
the counter to the buffer/preset register and then continues 
counting. Not valid for ARll. 

3 Event timing from zero base mode is the same as mode 2 
except when the transfer of the counter to the buffer/preset 
register is done, the counter is cleared and the count 
begins from zero. Not valid for ARll. 

4,5,6,7 Start clock only after Schmitt trigger 1 fires. Mode is 
then determined by the value of m-4. Not valid for ARll. 

8 to 15 Indicates the operation of the clock in a non-inter rupt mode 
has been added for faster A/D data acquisition. To get the 
value of m, just add 8 to the value of the interrupt mode. 
For example: 

m=0+8 indicates single interval non-interrupt mode clock 
operation . 

m=l+8 indicates repeated interval non-interrupt mode 
clock operation. 

Example : 

Set the clock running to interrupt once every second. A 100 Hz 
frequency is used and the clock mode is 1. 

CALL "SETR" (5,1,100) 

Each programmable clock interrupt causes a 16-bit software clock 
(counter) to be incremented by one. When the maximum count of 65535 
is reached, the next interrupt causes a reset to zero. This clock may 
be retrieved by the RTIM and DRS routines. 



2.5.2 Setting the Clock to Rate and Time (SETC) 



SETC 



A call to the SETC routine sets clock to specified rate and time 
The form of the call is: 

CALL "SETC" (r ,t) 
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determines the clock rate as 
Table 2-3, and may be 4,5, or 7. 



described 



in 



t is the time in seconds that the clock runs before 
issuing an interrupt. 

The clock status register is set to rate determined by r and runs for 
t seconds. A clock interrupt then occurs which can be used to 
initiate any of the clock controlled functions. The time argument is 
evaluated as ticks equal time in seconds multiplied by the clock rate 
specified, e.g., if the clock rate was lOkHz, then ticks equal time in 
seconds multiplied by lOkHz. The ticks are entered into the clock 
preset/buffer register,. The clock always runs in mode 0. 

Example : 

Set the clock to interrupt in 10 seconds using a 100 Hz frequency. 

CALL "SETC" (5,10) 



2.5.3 Histograms - Timed Schmitt Trigger (HIST) 



HIST 



The HIST routine inputs values from the clock preset/buffer register 
and stores them into the specified buffer whenever Schmitt trigger 2 
fires. The clock must be in mode 2 or 3 for the data to be 
meaningful . 

The form of the call is: 

CALL "HIST" (T[ (i) ] ,n) 

where 

T[(i)] is a buffer previously defined in a call to the 
USE routine. 

n determines the total number of data points stored. 

The RDB function is used to retrieve the data. The data pointers in 
the ring buffer are reset before the sampling operation begins. 

If n is given as zero, the HIST sampling will be disabled. 

HIST operations do not interfere with other sampling operations (i.e., 
RTS and DRS) and all can be in progress simultaneously. 

HIST routine acts as a NOP (no-operation) when $AR11 is defined in 
PERPAR.MAC for an ARll system. 

Example : 

Collect a timed histogram between external events (Schmitt trigger 2) 
and store the results in array T. The clock runs at 1 kHz and 100 
intervals are required. 

10 DIM rc-K)) 

20 CALL "USE" (T) 

:^0 CALL "HI 81" (Ty 100) 

40 CALL "3ETR" (4y3y 1 > 
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2.5.4 Delaying Program Execution (WAIT) 



WAIT 



A call to WAIT disables further program execution until the specified 
event occurs. 

The form of the call is: 

CALL "WAIT" (n) 

where 



n 



specifies the event that must occur for program 
execution to continue. 

Values of n are: 

n=0 Wait for clock to overflow only. 

n=l Wait for Schmitt trigger 1 (external event 

for ARll) to fire (for clock rate = 6 only) . 
n=2 Wait for clock to overflow or Schmitt trigger 

1 to fire. 
n>2 Returns immediately. 
n<0 Wait for Schmitt trigger 1 (external event 

for ARll) to fire (a call to the SETR or SETC 

routine must be made prior to this) . 



Example : 

Wait for clock to overflow. 
10 CALL "WAIT" (0) 

2.5.5 Returning Current Software Clock Tick Value (RTIM) 



RTIM 



A call to the RTIM routine returns the 16-bit integer value of the 
internal software clock counter maintained by the programmable clock. 

The form of the call is: 



CALL "RTIM" (s,t) 



where 



specifies whether the internal clock counter is to 
be cleared or not. The counter is cleared when s 
is equal to 0; otherwise it is unaltered. 

is the 16-bit integer value of the internal clock 
counter . 
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2 . 6 MODULE LPS3 (DIGITAL I/O) 

The user should read the LPSll Laboratory Peripheral System User's 
Guide in order to fully understand the hardware latching mechanism 
before using these modules. 

The interrupt control logic permits the LPSDR-A or the DRll-K to 
perform an interrupt operation. The switches and jumpers on this 
logic can be arranged so that vector address can be assigned other 
than those configured as standard on the module for alignment. 

One method of causing interrupts to the Unibus uses the two control 
lines between the DRll-K and the external device. If the input 
interrupt enable (bit 6 of the status register) is set, a negative 
transition (+3 v to ground) of the EXTERNAL DATA READY pulse will 
generate an interrupt to the Unibus, with a vector address of 300. A 
bus request is made on the BR level that corresponds with the level of 
the priority plug in the logic (the standard level for the DRll-K 
interface is BR4; this may be changed on the priority plug if 
desired) . The control line method of interrupting is logically ORed 
into the DRll-K interrupt control, and is disabled by internal 
clamping circuitry if not desired. The device will continue 
interrupting as long as the line is held low. 

The second and most preferred method of interrupting is to use the 
individual input lines. Each input (IN15:IN00) is buffered by a 
flip-flop that will set on a negative transition (+3 v to ground) . 
Switches for the buffered bits on the hardware option make it possible 
to wire-OR each bit onto a common interrupt line. When the input 
interrupt enable (bit 6 of the status register) is set and a switch is 
on, the transition of the associated bit causes an interrupt to the 
Unibus. The bits are read under program control by reading the input 
register, and are cleared by moving data Is to the bits to be cleared. 
The input interrupt enable is cleared when an input interrupt is 
accepted by the Unibus; when reset, it will retrigger the interrupt 
circuit if any other input bits were set during the program service 
subroutine, so that new interrupting bits will not be lost. 



2.6.1 Reading the Digital Input Register (DIR) 




A call to DIR reads the Digital Input Register and converts it to a 
floating point number. The form of the call is: 

CALL "DIR" (i,V,S[,m[,j] ] ) 

where 

i determines the type of floating point conversion. 

V is the target variable. It is the value in the 
input register ANDed with m. 

S contains the returned digital Control Status 
Register (CSR) setting. 
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m indicates the 16-bit mask. The default value is 
-1. 

j indicates the number of the DRll-K unit on a 
multiple DRll-K system. The default value is 0. 
The maximum legal value is determined by the 
parameter $NUMBER in PERPAR.MAC at the assembly 
time of PERVEC.MAC module. 

If i=0, input is four Binary Coded Decimal (BCD) digits converted to a 
floating point number and the result is in the range to 9999. If 
iOO, then the binary result read from the register is directly 
converted to a floating point number and the result is in the range 
to 65535. The Digital Input Register is read via an internal load 
request and does not respond to interrupts. The input word is 
immediately written back into the input register to clear those bits 
which were obtained from the register. The result is returned in V. 

The new CSR register setting is returned in S. 

Example : 

"DOR" AND "DRS" MODULES ALONG WITH 
AND THE OUTPUT DIGITAL CABLES MUST BE 



:l. Rl 


•M THIS PROGRAM TIl'STS THE 


"DIR 


2 Rl 


•M SETRyWAIT AND RDB v THE 


INPU 


3 Rl 


•M CONNECTED TO EACH OTHE 


R* 


4 DIM X(30) 




l:i 0= 


■■■1 




6 CALL "DOR" ( 1 j 65535 s- N ) 




7 Ci 


•ILL "USE"(X) 




:l.O 1 


•OR !:=::! TO 16 




20 CALL "DOR" (QyOs-N) 




30 I 


;:all "dir" (Ii-Yi/NI) 




■40 1 


^•RINT N5Y 




50 0::::0*2 




60 NEXT I 




;l.60 


CALL "DOR" < li- 65535 i'N) 




165 


CALL "DRS" (X).ly30y0yN) 




:L70 


CALL "SETR" C59 IvlOO) 




:l.75 


i^ ■■■■:■■ 




ISO 


0=-0 




185 


FOR 1=^:^1 TO 30 




190 


CALL "DOR" ( 1 i- 65535 cN) 




195 


CALL "DOR" (Mi^OyN) 




200 


0:^::0-}-4096-{-256-M6-M 




205 


CALL "WAIT" CO) 




210 


NEXT I 




215 


GO SUB 300 




220 


STOP 




300 


FOR J=-l TO 30 




305 


CALL "RDB" (XcY) 




310 


PRINT JyY 




315 


NEXT J 




320 


RETURN 




500 


END 
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2.6.2 Writing to the Digital Output Register (DOR) 



DOR 



A call to DOR can either set or clear selected bits in the Digital 
Output Register. The form of the call is 



CALL "DOR" (m„n,R[, j] ) 



where 



m determines whether bits are to be set (when ra=0) 
or cleared (when m is not equal to 0) . 

n determines which bits are to be set or cleared. 

R contains the floating point equivalent to the new 
value in the Digital Output Register. 

j indicates the number of the DRll-K unit on a 
multiple DRll-K system. The default value is 0. 
The maximum legal value is determined by the 
parameter $NUMBER in PERPAR.MAC at the assembly 
time of PERVEC.MAC module. 

If a bit in the binary representation of n is 1, the corresponding bit 
of the Digital Output Register will be cleared or set (depending on 
the value of m) . If a bit in the binary representation of n is 0, the 
corresponding bit of the Digital Output Register will not be changed. 
The BASIC-11 BIN and OCT functions are very useful in setting or 
clearing the registers. 

Example : 

Turn on (set) bits 1 and 2 of the Digital Output Register. 

40 CALL "DOR" (O^BIN'llO' ,N) Clear Digital Output Register. 

40 CALL "DOR" (l,OCT'177777' ,N) 
or 

40 CALL "DOR" (1,-1,N) 



2.6.3 Digital Readout Sampling (DRS] 



DRS 



A call to the DRS routine samples the Digital Input Register in a 
similar fashion as the RTS function. 

The form of the call is: 

CALL "DRS"(A[(i)] ,ml,n,m2,R[,T[,m[,j]]]) 

where 
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A[(i)] is a buffer previously defined in a call to the 
USE routine. 

ml determines the mode by which the Digital Input 

Register is to be read. 



n 



determines the total number of samplings. 



m2 determines whether the sampling is clock driven. 

R contains the returned setting of the digital 

Control Status Register (CSR) . 

T describes the address of the buffer to store the 

current clock TICK value on every data interrupt 
when m2 is not equal to zero. 

m indicates the 16-bit mask. The default value is 

-1. 

j indicates the number of the DRll-K unit on a 

multiple DRll-K system. The default value is 0. 
The maximum legal value is determined by the 
parameter $NUMBER in PERPAR.MAC at the assembly 
time of PERVEC.MAC module. 

When m2 is equal to 0, each time the clock fires (Schmitt trigger, or 
external event for ARll) , the Digital Input Register is read. 

If ml is equal to zero the Digital Input Register will be treated as 
Binary Coded Decimal and will be converted to binary. If ml is not 
equal to zero the Digital Input Register will be input directly as a 
binary number. This number is stored in the circular buffer specified 
by A[(i)]. When DRS is first called, it resets the pointers of the 
buffer to the beginning. 

If n is given as zero, the DRS sampling will be disabled. The DRS 
call is driven by digital clock when m2 is not equal to zero. 
Whenever a new value is received in the input register, the value is 
immediately read in and stored in the buffer. The value of the 16-bit 
software clock is stored in the buffer specified by T. The input data 
word is immediately written back into the input register, and the 
active bit which have been sampled are cleared. 

The new setting of the digital Control Status Register is returned in 
R. 

Example : 

Read the Digital Input Register once every one tenth of a second for 
100 readings and store the results in array A. 

10 DIM ACl^iiO) 

20 CALL "USE" (A) 

3 C A L I... " H R S " < A y y :l. vO'fH ) 

40 CALL "SETF?" ( 5 y :l. y :I.O) 
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2.6.4 Relay Control (REL) 



REL 



A call to the REL routine opens or closes the specified relay. 

The REL routine acts as a NOP (no-operation) when $AR11 is defined in 
PERPAR.MAC for an ARll system. 

The forin of the call is: 

CALL "REL" (ajD) 
where 

a specifies the relay and may be equal to 1 or 2. 

b determines the operation. Relay is opened if 
equal to 0, otherwise it is closed. 

Example : 

Open relay 1 and close relay 2. 

100 CALL "REL" (1^.0) 

:l.;i.o CALL "f;;EL" (2^:1.) 



2.6.5 Reading/Writing Data From/Into Memory (IPK) 



IPK 



The IPK routine can be called to read a value from a specified address 
or place a value into a specified address. The form of the call is: 



CALL "IPK" (s,a,V) 



where 



indicates whether the value is a word or a byte. 
If s is even, the word value supplied in V will be 
read from or written into the even address 
register. If s is odd, the byte value supplied in 
V will be read from or written into the odd 
address register. 

A call such as CALL "IPK" (0,64,V) reads into 
variable V the value at location 64 in memory. 

specifies the address where the value V is read 
from or written into. This address must be even 
when the value of s is even. This address can be 
specified as an octal string, integer constant or 
integer variable. 



A call such as CALL "IPK" 
because the address is 
?ARG will result. 



(2,73,100) is illegal 
odd; the error message 



2-21 



LABORATORY PERIPHERAL SYSTEM SUPPORT 

is the value to be read from or written into the 
address register. 



NOTE 

This routine should not be used except to 
read from or write into the I/O page or to 
read from memory. Writing into memory can 
cause serious consequences (program being 
wiped out , etc . ) . 



2.7 MODULE LPS4 (DISPLAY) 

The routines in this module require the LPSVC or ARll with the VR14 
interfaced through it. The VTll cannot be used with these routines. 



2.7.1 Defining the Display Buffer (CLRD) 




A call to the CLRD routine defines the display buffer having fixed 
delta X values. 

The form of the call is: 

CALL "CLRD" (A[ (i) ] ,a,b) 

where 

A[(i)] is a buffer previously defined by a call to the 
USE routine. 

a specifies the size of the buffer to be displayed. 

b specifies the scale. 

The buffer to be displayed should contain single word values. Values 
in the range 4095>=value>=0 are displayed while values outside this 
are not. The size of the buffer, a, is the number of Y points to 
display and must be less than or equal to the number of points defined 
in the DIM statement and the call to the USE routine. The delta x is 
calculated as 4096/a and can be fractional. 

If b, the scale, equals 0, CLRD will set all buffer values to -1 
(non-displayable values). If scale does not equal 0, CLRD bypasses 
the clearing of the array and the original data is multiplied by b. 
In either case, the PUTD pointers are reset to point to the beginning 
of the array. Data is entered into the array through the PUTD 
function; however, a CLRD must be issued before data is initially 
transferred to the array. 

A CLRD routine must be issued at least once before issuing the DIS, 
FSH, or DXY functions which can display the buffer defined by CLRD. 

Example : 
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Set up the array C to be used as a display buffer having 256 points 

:l.0 DIM C(:l.28) 

20 CALL "USE" <C> 

30 CALL "CLRD" (d^ 256^0) 



2.7.2 Putting Data into Display Buffer (PUTD) 



PUTD 



A call to the PUTD routine puts a data value into the specified 
buffer. Repeated calls to PUTD will cause the buffer to be filled 
sequentially. 

The form of the call is: 

CALL "PUTD" (A[ (i) ] ,b) 

where 

A[(i)] is a buffer previously defined by the USE routine. 

b is the value to be inserted. Must be in range 

0<=b<=65535. 

This function does not initiate a display, but rather just enters data 
into the specified array. 

Example : 

Remove 100 data points from the specified digital sampling buffer D, 
and transfer them to the buffer Z. 

80 DIM D<50) yXCoO) 
90 CALL "USE"(Ds'X) 

100 fof;; i:^==:i. to loo 

:IJ.O CALL "RDB" < D c X ) 
:l.20 CALL "PUTD" ( Z ^^ X ) 
:l.30 NEXT I 



2.7.3 Background Display Routine (PIS) 



DIS 



A call to the DIS routine displays data from the buffer whenever BASIC 
is idle. Data is not displayed by DIS or DXY routines under RT-11 FB 
system because BASIC is never idle. Data is displayed under RT-11 SJ 
system (version 2 or later) only when I/O is taking place. 

The form of the call is: 



CALL "DIS" (A[ (i) ] ,a,b[ ,n] ) where 



A[(i)] 



is a display buffer previously defined by the USE 
and CLRD routines. 
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a determines the starting point of the display. 

b determines the frequency of points in the buffer 
that are to be displayed. 

n specifies the number of data point to display. 

The default value is all remaining elements of the 
array. 

The points displayed start with the point a in the buffer and proceed 
in increments of b. If b is equal to 1, consecutive points starting 
with the a one are displayed. If b is equal to 2, every other point 
is displayed, etc. 

Example : 

Display data from buffer E beginning at the 12th data point and 
displaying every 3rd point of the remaining array elements. 

20 DIM ECLOO) 

40 CALL "USE" (E) 

60 CALL "CLRD" <E!.200!;0) 

BO REM BUFFER MAY BE FILLED HERE 

100 CALL "DIS" (Ei/:i.2!/3) 

:l,20 REM OR MAY BE FILLED HERE 

Example : 

S REM THIS PROGRAM TESTS THE ROUTINES-USE s^ CLRD c PUTD y DIS s- FSH-ALONG WIT 

:10 REM SETRvAND WAIT 

•I 5 |::. 1:5 ;|; fg j « p |:;. (;) g |:;; ^ jvj j q j |::; 3 j q | |:;; j;, , p i j j ^ , ^ j 9 ^ j^ j;, p j:; (..| ^ « 

50 CALL "SETR" (5^1 y :l.0) 

:i.oo DIM A(;i.00) 

200 CALL "USE" (A) 

3 C A I... I... " C I... R D " ( A 9 1 0^0) 

400 FOR I^=:^:l. TO 100 

500 CALL "PUTD" ( A s- I ) 

600 NEX'f I 

700 CALL "DIS" (Aylyl) 

710 INPUT D 

750 CALL "DIS" (Ayl^li-yS) 

760 INPUT D 

780 CALL "DIS" (Aylyl s-SO) 

Si! 00 INPUT D 

900 IF D^^=^OGO TO 2000 

950 FOR S^^^^l TO 99 

975 FOR I^:::l TO 50 

980 rOR D=^=^l. TO 100 

1000 CALL "FSH" ( A y S y I y D ) 

1010 CALL "WAIT" (0) 

1025 NEXT D 

1030 NEXT I 

1050 NEXT S 

1100 GO TO 800 

2000 STOP 
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2.7.4 Display Buffer (FSH) 



FSH 



The FSH routine is identical to the DIS routine except that the data 
points in the buffer are completely displayed only once when this call 
is executed. The next E5ASIC statement is then executed. 

The form of the call is: 

CALL "FSH" (A[ (i) ] ,a,b[ ,n] ) 

where 



A[(i)] 

a 

b 

n 



have the 
same 
meaning 
as in DIS 



Example : 

Using the previous example, display 100 cycles of the array E. 

1.00 FOR :i: •••■=•■ :i. TO :i.oo 

LIO CALL "FSH"<E >-:l.2y3) 
1.20 NEXT 1 



2.7.5 Displaying X,Y Data (DXY) 



DXY 



A call to the DXY routine displays points from two buffers as x and y 

values. These buffers are displayed whenever BASIC is idle. Data is 

displayed under RT-11 SJ system (version 2 or later) only when I/O is 
taking place. 

The form of the call is: 

CALL "DXY" (X[(i)] ,Y[(j)] ,a,b[,n]) 

where 



X[(i)] 
Y[(j)] 



is a buffer previously defined by a call to the 
USE routine and contains the x values. 

is a buffer previously defined by calls to the USE 
and CLRD routines and contains the y values. 

determines the starting point in both buffers 

determines the frequency of the points in each 
buffer to be displayed. 

specifies the number of data points to display. 
The default value is all remaining elements of the 
array. 
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The buffer containing the x values, X[(i)] does not have to be 
initialized by a call to CLRD, but it may be convenient to do so to 
initialize all values so that they are non-displayable . The buffer 
containing the y values must be initialized by a call to CLRD although 
the value of delta x is not used. 

As in the other display routines the a determines the location of the 
first point to be displayed in each buffer and b determines the 
frequency of points to be displayed. If b equals one, consecutive 
values are taken from the two buffers. If b equals two, every other 
value in each buffer will be used to create the display. 

Example : 

Generate fiducial marks on the display screen of a 256-point display 
every 16 points. Marks will be 10 points in height. Data will be 
generated into the arrays X and Y. 



5 REN TH 


i 


PRINT 


^••0 


DIM K 


-:0 


CflLL 


40 


CRI L 


f.0 


Cfll.L 


60 


FOR I 


?0 


FOR J 


ft0 


CRLL 


90 


CRI. L 


10r 


f NEXT 


lie 


1 NEXT 


120 CRLL 


13e 


1 STOP 


140 END 



IS PROQRRM TESTS -DXV RND EXV- ROUTINES 

"TFST PROGRRM FOR DXV RND EKV ROUTINES" 
<i28>, V<i28> 
"U5F"<X, V> 
"C:I..RD"0=:, 25 e, Q) 
"C:LRD"<V, 25f.> &> 
=16 TO 256 STEP 16 
=i TO 10 
"PUTD"<X, I ) 
"PUTD"<;V, J) 

J 

T 

"DKV" <.K.> v.. 1.. i> 



RERDV 



2.7.6 Flashing X-Y Data (FXY) 




The FXY routine is the same as DXY routine except that the X and 
values are displayed only once when this call is made. 

The form of the call is: 

CALL "FXY"(X[(i)] ,Y[(j)] ,a,b[,n]) 



X[(i)] 

Y[(j)] 

a 

b 

n 



Have the 
same 
meaning 
as in 
DXY. 



Example : 



5 REM THIS PROGRRM TESTS -DXV RND EXV- ROUTINES 

•10 PRINT "TEST PROGRRM FOR DXV RND EXV ROUTINES" 

?0 DIM X'::i2£0, V<12S> 

~:0 CRLL "USE"':X, V> 

4 r R L L " C L R D " -:; K , 2 5 6 . O > 

"=; C R l_ L " C: L R " (. V , 2 5 6 .. ::• 
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13 r 

F 
C 

Q c 

00 
10 

20 

30 

40 

50 

60 

70 

80 

90 
:00 
:10 
:20 
'3:0 

'40 

'50 
:60 
.■70 



OR I^IG TO 256 STF.P 16 

OR J=«1 TO 10 

RIJ "PIJ TO "<>:;, I > 

Rl, I. "F'lJTr:'"-::V.. J> 

NFXT J 

NFXT I 

CRLL "DXV"'::X. V, 1. i> 

INPUT r:. 

CRl.L "DXV"<X.. V, 1,. 1.. 25::' 

IWPIJT ^^ 

CRl.L " D X V " •' X .. V ,. 1 .. 1 .. 5 > 

INPUT D 

IF r:' = 0GO TO 



FOP 5=1 TO 
FOR 1=1 TO 
FOR 0=1 TO 



CPI I- 
NFXT 
NFKT 
NFXT 
STOP 
FNr:> 



"FKV'CJ^ 

D 

I 



260 
99 
50 

100 

V 



s> I. r:o 



RERDV 



2 . 8 HARDWARE REQUIRED FOR LPS COMMANDS 

The following summary describes the hardware 
utilize the LPS system. 



necessary to fully 



Command 


Hardware Required 


USE 


None 


ACC 


None 


RDB 


None 


ADC 


LPSAD-12, LPSAM (for additional 8 channels) 


RTS 


LPSAD-12, LPSAD-NP (for DMA operations) 




LPSAM (for additional 8 channels) 




LPSSH (for dual sample and hold) 




LPSKW (for real-time clocking and Schmitt 




triggers) 




LPSAG-VG (for multi-gain) 


LED 


LPSAD-12 


CVSG 


None 


SETR 


LPSKW 


SETC 


LPSKW 


HIST 


LPSKW 


WAIT 


LPSKW 


RTIM 


LPSKW 


DIR 


LPSDR 


DOR 


LPSDR 


DRS 


LPSDR 


REL 


LPSDR 


IPK 


None 


CLRD 


None 


PUTD 


None 


DIS 


LPSVC 


FSH 


LPSVC 


DXY 


LPSVC 


FXY 


LPSVC 



The routines that require the ARll are ADC, RTS, SETR, SETC, WAIT, and 
RTIM. 
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The routines that require the VR14 in addition to the ARll are DIS, 
FSH, DXY, and FXY. 

The routines that require the DRll-K are DIR, DOR, and DRS . 



2.9 EXAMPLE PROGRAMS 



;l. F 


iEh 


TFiis f^'F;; oof;; AM 


TEST 


S TF-IE 


2 \- 


iEh 


IT f;;f;;quif;;es 2 


INF' 


UTS: 


3 r 


;;em 


A CFIANNEL # E 


QUAL 


TO ■ 


.10 


INF-'UT 


C 






20 


:i:nf:*ut 









30 


:ff" O'^' 


•■:l, THEN :l.00 






40 


CALL 


"ADC" <C9K>) 






50 


F^'FMNT 


Vs-ABS<V) 






60 


CALL 


"ADC" (CvMI. y.!. ) 






70 


f:'f;;int 


Ml yABS(V:l. ) 






80 


CALL 


"ADC" (C>-U2y0) 






90 


pf;;;i;nt 


U2yABS(V2) 






95 


00 TO 


:l.o 






:L00 END 









"ADC" MODULE 

■lANNEL # AND lOAIN FF^'OM CON SO LI 

tef;:minates f^m-iioof^am 



:[. f;;em this f:'f;:ogf;;am tests the df?s module time log featuf;;e 

3 DIM Z<30) 

4 DIM X(30) 

5 0^^=:l. 

6 CALL "DOF;;" (;l. y65535yN) 
B CALL "USE" (XvZ) 

10 FOF;; I::::1 to 16 

20 CALL "DOF;;" (OyOyN) 

30 CALL "DIF^"" (li-YyNl) 

40 PRl HI NJY 

50 0::^=0>i<2 

60 NEXT I 

1 60 CALL " DOFi; " < 1 y 65535 y N ) 

1 6 5 C A I... I... " 1:1 R S " ( X y 1 y 3 y :I. y N y Z y 7 ) 

166 F:'F;;INT ";{<* >K :{<>{<*>!<>!<" y N y ">!<*** >!c>K ?{<*>«>{<* " 

170 CALL "SETFi;" (4ylyl) 

175 M:^:^0 
130 0:::^0 

135 F'OF;; I-l TO 30 

1 90 CALL " DOF;; " (1 y 65535 y N ) 

195 CALL "DOF^-" (MyOyN) 

200 0^==:0}-256M6M 

210 NEXT I 

215 OOSUB 300 

220 STOF:- 

300 FOF;; J::::1 TO 30 

305 CALL "F«;iB" (XyY) 

306 CALL "F;:DB" (Zy Y1 ) 
310 F:*F;;INT JyYyYl 
315 NEXT J 

320 f;;etuf;;n 

500 END 
* 

■10 RFM THIS PROQRRM TF.STS THE "RTS" MOC'ULE 

-■0 REM TT requires 2 INPUTS: STARTING CHRNNEL #,. NUMBER OF CHRNHELl 

-:0 RFM RWD I GRIN FROM CONSOLE 

40 RFM R STRRTING CHRNNFL # FQURL TO -i TERMINRTES PRDGRRM 

50 T'lM R':::20::i 

2-28 



LABORATORY PERIPHERAL SYSTEM SUPPORT 

60 Cfll.l. "IISE"':;R> 
?ei INPUT s 
R0 IF S=~i THFN 150 
^0 INPUT N 

100 INPUT G 

1 10 CRIJ. "5ETR"<;5. 1, i00> 

1 20 CRI.L "RTS"<R. S.. N, 20, 2, G> 

130 GOSUe ?00 

140 GO TO 50 

1 50 STOP 

1 70 CRIJ "Rr:'B"<R, Z> 
180 TF Z<:0 THFN 170 
190 RFTURN 

"'00 FOR 1=1 TO 4 

210 GOSUB 1 70 

P20 R1=Z 

230 GOSUB 170 

?40 R2=7 

250 GOSUB 170 

260 R3=Z 

270 GOSUB 170 

280 R4=Z 

290 GOSUB 170 

":00 R5=Z 

":10 PRINT Rl, R2, R3, R4, R5 

320 NFKT I 

330 RFTURN 

340 EN[:' 

RFRDV 
* 

:L REM TH:i:S program TESTS THE "RTS" 54 "CVSG" ROUTitNES 

2 REM IT REQUIRES 3 INPUTS? STARTING CHANNEL ty NUMBER OF CHANNELS 

3 REM AND I GAIN F-RDM CONSOLE 

4 REM A STARTING CHANNEL # EQUAL TO -I TERMINATES PROGRAM 
10 DIM A (20) 

20 CALL "USE" (A) 

30 INPUT S 

40 IF S=:^-:L THEN :1.00 

SO INPUT N 

60 INPUT G 

70 CALL "SETR" (5/ Is- 100) 

8 C A I... I... " R T S " ( A y S 1- N y 2 y 2 y G ) 

90 GOSUB 220 

95 GO TO 10 

.100 STOP 

1 1 I-;: lii: M (? & (r? (? (? (r? (f? (f? (» (f? iff {<> (I? (f? (i? (a ii> (i? {f? (r? (f? & id i9 (? (? (f? (f? (r? (i? (r? (r? (» (f? (3 (f? i9 (f? (r? (r? (i? (?? (? (? (? (» (f? (i? i<i> (f? (r? (f? (?? (i? (f? 
200 CALL "C'v'SG" <I.yV) 

210 IF Z=='=-2 THEN 200 

215 RETURN 

220 FOR I:=^l TO 4 

225 GOSUB 200 

230 A1::^=Z 

235 M1==^V 

240 GOSUB 200 

250 A2:===Z 

255 U2==::U 

260 OGSUB 200 
270 A3===Z 
275 U3===:U 
280 GOSUB 200 
290 A4;::^Z 
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295 K}4---V 








300 (30 BUB 200 








310 A5==^=Z 








3:1.5 ^5::^!^; 








320 PRINT AlyA2yA3i'A4yA5 








325 PRINT KH9Kf2^Kf3yK^AyK^'5 








350 NEXT I 








400 f;:il"Turn 








:l.000 END 

•k 








1 REM THIS PROGRAM TESTS 


THE "RTIM" MODULE ALONG 


WITH i; 


>ETR 


2 REM THE LAST :I.O U A LUES 


PRINTED WILL BE THRO' 


9* 




:l.0 INPUT S 








20 IF S— -l THEN 1000 








30 CALL "RTIM" (OcV) 








40 PRINT U 








50 CALL "SETR" (yyls-lOO) 








60 FOR I^=^-:l. TO :i.o 








70 CALL "RTIM" ( I y U ) 








80 PRINT Kf 








90 CALL "WAIT"<0) 








:l.00 NEXT I 








:I.10 GO TO 10 








1000 STOP 









AND WAIT 
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COMMAND SUMMARY 



The following list is a summary of the routines available for 
controlling LPS hardware and a brief description of each: 



CALL 
USE 

ACC 
RDB 

ADC 

RTS 

LED 

CVSG 

SETR 

SETC 

HIST 

WAIT 

RTIM 

DIR 
DOR 



ARGUMENT LIST 
(A[(i)] [B[(j)]...C[(f)]]) 

(A[(i)]) 
(A[(i)] , B] 



(b,A[,i]) 

(A[ (i) ] , cl,c2,n,m[ ,i] 

(a) 

(V,I) 

(r,mrP) 

(r,t) 

(T[(i)] „n) 

(n) 

(s,t) 

(i,V,S[,m[,j]]) 
(m,n,R[ , j] ) 



EFFECT 



Defines array(s) to 
storage of data. 



be used for 



Allows access to an entire array. 

Returns the next data point from a 
specified buffer. 

Initiates an A/D conversion on a 
specified channel and return the 
result to the user. 

Performs real-time buffered/clocked 
sampling of the A/D. 

Displays a numeric value on the 
Light Emitting Diodes. 

Returns the next data value and 
gain in two separate variables. 

Sets clock running at a designated 
rate and mode. 

Sets clock running at a designated 
rate and initiates some action 
after a specified number of seconds 
have elapsed. 

Performs histogram sampling using a 
timed Schmitt trigger. 



Waits for 
occur . 



specified event to 



Returns the value of the internal 
software clock counter. 

Reads Digital Input register. 

Writes Digital Output register. 



A~l 



COMMAND SUMMARY 



CALL 
DRS 

REL 
IPK 

CLRD 

PUTD 
DIS 

FSH 
DXY 

FXY 



ARGUMENT LIST 



EFFECT 



(A[(i)] ,ml,n2,m2, R[ ,T[ ,m [ , j ] ] ] ) 

Performs sampling of the Digital 
Input register. 



(a,b) 
(s,a,V 

(A[(i) 

(A[(i) 
(A[(i) 

(A[(i) 
(X[(i) 

(X[(i) 



,a,b) 

,b) 

, a,b[,n]) 

,a,b[,n] ) 



Closes or opens one of two relays. 

Reads a value from a register or 
writes a value into a register. 

Defines display buffer and 
optionally clears or scales the 
data in it. 

Puts data into data buffer. 

Displays data with constant x and 
variable y whenever BASIC is 
waiting for I/O. 

Displays a complete sweep of data 
with constant x and variable y. 



f Y[ ( j) ] f Sf b [ ,n] ) Displays data with variable x and y 

values whenever BASIC is waiting 
for I/O. 

f Y[ ( j) ] ,a,b [ ,n] ) Displays data with variable X and Y 

values respectively only once. 
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APPENDIX B 
BUILDING LOAD MODULES 



B . 1 BASIC/RT-11 



B . 1 . 1 LPS Support 

The software supplied supports the standard hardware configuration 
only. The standard hardware configuration is determined by the 
address of the device hardware register and vectors. The standard 
LPSll or ARll register is at 170400 (octal) and the vector is at 340 
(octal) . The standard DRll-K register is at 167770 (octal) and vector 
is at 300 (octal) . 

The supplied software has to be reassembled and relinked if the 
hardware configuration does not correspond to the above. To redefine 
the hardware register and vector address, just edit the source file 
PERPAR.MAC. 

The LPS Support for BASIC/RT-11 is supplied in ten binary relocatable 
files (on DECpack disk, DECtape, floppy disk, or 9-track magtape). 
These files are: 



LPSO.OBJ 

LPSl.OBJ 

ARDl.OBJ 

LPS2.0BJ " 

ARD2.0BJ 

LPS2C.0BJ 

ARD2C.0BJ 

LPS3.0BJ 
ARD3.0BJ 

LPS4.0BJ 

The following 



Required 
Optional 
Optional 

One is required 



Optional 
Optional 

Optional 

files are 



LPS kernel module 
ARll and DRll-K 
Analog to digital 
for LPSll 

Analog to digital 
for ARll and DRll- 
Real-time clock ( 
frequency) for LPS 
Real-time clock fo 
Hz line frequency) 
Real-time clock ( 
frequency) for LPS 
Real-time clock ( 
frequency) for ARl 
Digital input/outp 
Digital input/outp 
and DRll-K 
Display for LPSll 
DRll-K 
also provided in source form in al 



for LPSll or 

conversion 

conversion 
K 

60 Hz line 
11 
r ARll (60 

and DRll-K 
50 Hz line 
11 

50 Hz line 
1 and DRll-K 
ut for LPSll 
ut for ARll 

or ARll and 

1 kits: 



FTBL.MAC Function Table Module 
PERVEC.MAC Vector Definition Module 
RTINT.MAC Interface Module 
PERPAR.MAC Parameter 

To build a load module BASLPS.SAV (BASIC with LPSll support) or 
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BASARD.SAV (BASIC with ARll and DRll-K support) , first transfer all 
BASIC Extensions binaries (including sources) and BASIC files to the 
system device with PIP. The parameter file PERPAR.MAC is then edited 
and assembled with FTBL.MAC, PERVEC.MAC, and RTINT.MAC. The three 
object modules produced are then linked with the LPS and BASIC object 
modules to produce a load module. 



NOTE 

All of the procedures in this section 
assume that an unaltered PERPAR.MAC is 
being edited. It is recommended that a 
copy of the original PERPAR.MAC be made 
and saved for future use. 

If the display module is not included in the LPS support to be linked, 
another background routine may be linked with BASIC, but it must be 
defined in this module. See Section 8.8.1 of the BASIC/RT-11 Language 
Reference Manual for instructions to define the background routine. 

For the LPS routines to be accessible from the BASIC CALL statement, 
the routine must be defined in a System Function Table as described in 
Section 8.2 of the BASIC/RT-11 Language Reference Manual . FTBL.MAC is 
a function table m source form. If any user-written assembly 
language routines are also linked with BASIC and LPS software, the 
routines must be defined in this function table. See Section 8.2.1 of 
the BASIC/RT-11 Language Reference Manual for instructions to add the 
assembly language routine definitions to the Function Table. 

NOTE 

Since only one .DEVICE programmed 
request can be active, a special routine 
SDEVHD has been added to BASIC (in the 
FTBL.MAC module) to maintain a dynamic 
device list. This routine is required 
so that abnormal termination of BASIC 
(e.g., typing CTRL/C) will return the 
system to its normal state, usually by 
disabling interrupts. 

When writing new assembly language 
routines for BASIC that would normally 
use the RT-11 .DEVICE programmed 
request, use the following code instead: 

.GLOBL SDEVHD 
MOV #LIST,RO 
JSR PC, SDEVHD 

If the .DEVICE list exceeds a block of 
30 octal words, the error message "?DSP" 
will result. The size of the block can 
be changed by defining "DSPSIZ=X" in the 
PERPAR.MAC file. 

PERVEC.MAC is the vector definition module. It defines the hardware 
addresses of the status registers and the interrupt vectors. The 
standard hardware address for the LPSll and the ARll is 170400 (octal) 
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and interrupt vector Is 340 (octal) . The standard hardware address 
for the LPSll digital I/O is LPS register+10 (octal) and interrupt 
vector is at LPS vector+10 (octal) ,* for the DRll-K they are at 167770 
(octal) and 300 (octal) respectively. 

There are some LPSll hardware systems with the interrupt vector at 
location 300 (octal) . To assemble PERVEC with the interrupt vector at 
300 (octal) it is necessary to delete the semicolon before the $V=0 
definition in PERPAR.MAC. If the interrupt vectors are at other 
locations then correct the interrupt addresses by using the system 
editor to define $V in PERPAR equal to the interrupt address minus 300 
(octal) . For example, if the LPSll interrupt vectors start at 320 
(octal), define $V=20 (octal). 

If the registers and interrupt vector of DRll-K are located at 
non-standard address, then OFFSTl and 0FFST2 in PERPAR.MAC must be 
redefined. For example, if the register and interrupt vector 
addresses are at 167750 (octal) and 360 (octal) , define OFFST1=-20 
(octal) and OFFST2=60 (octal) . 

In a multiple DRll-K system there must be a difference of 10 (octal) 
between each unit in the interrupt and vector addresses. The status 
register address decreases by 10 (octal) while the vector address 
increases by 10 (octal). For example, in a 2 DRll-K system, when the 
first DRll-K is at 167750 and 360 (octal) , the second one must be at 
167740 and 370 (octal) . 

PERPAR.MAC is a parameter file, a listing follows: 

.TITLE PERPAP -- PERIPHERAL SUPPOPT PACKAGE PARAMETER MODULE. 

DEC-11-LBPAA-C BASIC KERNEL V02-01 

COPYRIGHT (C) 1974,1975 

DIGITAL EQUIPMENT CORPORATION 
MAYNARD, MASSACHUSETTS 01754 

THE INFORMATION Ih THIS DOCUMENT IS SUBJECT TO 
CHANGE WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED 
AS A COMMITMENT BY DIGITAL EQUIPMENT CORPORATION. 
DIGITAL ASSUMES NO RESPONSIBILITY FOR ANY ERRORS THAT 
MAY APPEAR IN THIS DOCUMENT 

THIS SOFTWARE IS FURNISHED TO PURCHASER UNDER A 
LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND 
CAN BE COPIED (WITH INCLUSION OF DIGITAL'S COPYRIGHT 
NOTICE) ONLY FOR USE IN SUCH SYSTEM, EXCEPT AS MAY 
OTHERWISE BE PROVIDED IN WRITING BY DIGITAL. 

DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE 
OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT 
WHICH IS NOT SUPPLIED BY DIGITAL. 



THE CONDITIONALS CONTAINED IN THIS MODULE AFFECT THE ASSEMBLY 

OF THE FUNCTION TABLE MODULE "FTBL.MAC". 

TO OBTAIN THE DESIRED CONDITIONAL DEFIN ITION C S ) , 

REMOVE (USING AN EDITOR) THE 

SEMI-COLON APPEARING BEFORE THE CONDITIONAL. 
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SLSI11=0 

$CAPS=0 

$DISK=0 



.IFMDF $D1SK 



$STRNG=0 



$RTV2=0 



ENDC 
IFDF 



ENDC 



SDISK 



.IFDF $RTV2 

gve;ct=354 

CONFIG=300 



BUILDING LOAD MODULES 

?DEFINE FOR LSI-11 

;DEFINE FOR CAPS-11 SYSTEM 

;DEFINE FOP RT-11 

;D0 NOT DEFINE FOP PT5 BASIC WITHOUT 
;STRINGS,- DEFINED FOP PTS VOl WITH STRINGS 



ASSUMES RT-11 VERSION 2 IS USED. 
DO NOT DEFINE FOR RT-11 VOl-15. 
SDISK 

THESE ARE DISPLACEMENTS USED FOR VERSION 2 

DISPL. TO VTll VECTOR IN RMON 

DISPL. TO CONFIGURATION WORD IN RMON 



DSPSIZ=X 

DEFINE 'X'= TO REQUIRED SIZE OF .DEVICE LIST IN FTBL.MAC 



.ENDC 



$LPS=0 
$AR11=0 

.IFDF 
$LPS=0 

.ENDC 

$DR11K=0 

.IFDF 
OFFST1=0 

OFFST2=0 



SAPll 



SDRllK 



SRTV2 
DEFINE FOR LPSll 
DEFINE FOR APll 



IMPLICIT DEFINITION 
ARll SUBSET OF LPSll 



;DEFINE FOR DRllK 



;THE STANDARD DRll-K REGISTER IS AT 167770 
;DEFINE X, WHERE 0FFST1=X, FOR NON-STANDARD 
;CONFIGURATION. E.G. FOR REGISTER ADDRESS AT 
?167750 DEFINE X=-20. 

;THE STANDARD DRll-K VECTOR IS AT 300. DEFINE 
;X, WHERE 0FFST2=X FOR NON-STANDARD CONFIGURATIO 
;E.G. FOR VECTOR AT 330, DEFINE X=30. 



.ENDC 

DEFINE "X" EQUAL TO TOTAL NUMBER OF DPll-K'S IN SYSTEM 

$NUMBR=X ;DEFINE FOR MULTIPLE DPll-K SYSTEM 

•IFNDF SNUMBR 
SNUMBR = 1 
.ENDC 



.IFDF SLPS 



$V = 



$ADC=0 
$CLK=0 
$DIO=0 
$DIS=0 



.ENDC 



DEFINE FOR LPS WITH VECTORS STARTING 

AT 300. DEFAULT SETTING IS VECTORS AT 
340. SET SV = ANY OTHER DISPLACEMENT IF 
VECTORS START AT DISPLACEMENTS 
OTHER THAN OP 40 FROM 
VECTOR 300 

INCLUDE A/D ROUTINES. 
INCLUDE CLOCK ROUTINES. 
INCLUDE DIGITAL 10 ROUTINES 
INCLUDE DISPLAY ROUTINES. 
SLPS 
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$PLOT=0 



.IFDF 
$LV11=0 
$VT11=0 
• ENDC 



SPLOT 



$LV11=0 



DEFINE FOP PLOT SUPPORT 

NOT E--SDISK MUST ALWAYS BE DEFINED FOP 
LVll SUPPORT. 



INCLUDE LVll 
INCLUDE VTll 
SPLOT 



SUPPORT 
SUPPORT 



; DEFINE FOR LVll SUPPORT 



$VT11=0 



;FOR VTll 



.IFDF 



SVTll 



$CLOCK=0 



• ENDC 



$VT55=0 



;F0R SYSTEM CLOCK (KWllL) 
; SVTll 

:DEFINE FOR VT55 



.EOT 



To link the LPS module with BASIC it is necessary to delete the 
semicolon (;) before $AR11 (for ARll only), $LPS (for LPS only) and 
$DR11K (for DRll-K only) statements. If any of the four optional 
modules are not to be included, a semicolon must be inserted before 
the appropriate conditional. 

Parameter Insert semicolon before parameter if: 

$ADC=0 module LPSl or ARDl is not to be included. 

$CLK=0 module LPS2(LPS2C) or ARD2(ARD2C) is not to be 

included . 
$DIO=0 module LPS3 or ARD3 is not to be included. 
$DIS=0 module LPS4 is not to be included. 



NOTE 

If DRll-K is used on a system. LPSDR 
must not be used. The total number of 
DRll-K is defined in the PERPAR.MAC 
parameter file by $NUMBR=X, where X can 
have a maximum of 16. 



Using the system assembler, the sources are assembled in the following 
combinations to produce the needed object modules: 
Object Files Source Files 



FTBL 

PERVEC 

RTINT 



PERPAR,FTBL 
PERPAR, PERVEC 
PERPAR, RTINT 
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After these modules have been reassembled, the LPS support can be 
linked with the BASIC object modules with only the desired optional 
LPS modules included in the LINK command strings. 

For long programs that do not use string variables, the LPS support 
may be linked with the no string object modules BASNSR, BASNSX, and 
BASNSE. This no string version of BASIC with LPS support has more 
free core for program array storage. 

After BASLPS or BASARD has been linked, it may be loaded by the 
following monitor command: 

.R BASLPS (or BASARD) 

At this point the standard BASIC initial dialogue begins. See Chapter 
1 of the BASIC/RT-11 Language Reference Manual for a description of 
the initial dialogue. 

When editing PERPAR.MAC, $DISK=0 should be enabled for BASIC/RT-11, 
$LPS=0 should be enabled for BASIC with LPSll support, $AR11=0 should 
be enabled for BASIC with ARll support, and $DR11K=0 for DRll-K 
support. $ADC=0, $CLK=0, $DIO=0, and $DIS=0 should be disabled 
whenever the appropriate optional LPS module (or ARll) is not to be 
included. For hardware address other than the standard, make changes 
as described in paragraph about PERVEC.MAC. 

The procedures for building the following load modules are described 
in this section: 

BASIC/RT-11 with complete LPSll support 

BASIC/RT-11 with complete LPSll support and LPS interrupt 
vectors at location 300 (octal) . 

BASIC/RT-11 for ARll and DRll-K (at hardware addresses 167750 
and 360 (octal)) support, with the ADC, DIO, CLK, 
and DIS optional modules. 

Linking instructions for both overlaying and non-overlaying versions 
are given for each. Since all editing instructions assume an original 
PERPAR.BAK, the edit back-up file, is renamed PERPAR.MAC to allow any 
future load modules to be built from an un-edited PERPAR.MAC. 

To build a load module BASLPS. SAV with complete configuration under 
RT-11 including LPS support and all four optional modules, enter the 
following command strings: 

.R FDIT 

*=EBF'ERPRR. MRC(i)Ktili) 
* F : $ 1 5 K = 0®0 R r:^)© 
f:F; «:LPS = 0(i)0Rr.:<ii) 

. R MRCRO 

H-:FTRL = PFRPRR, FTP!. 

F. R R R S D F T F C T F D : 9 

FRFE CORF: i?0G''. MDRDS 

t- P F R V F C = F' F R P R P , F' F R V F C: 
ERRORS n.FTECTFf:. : R 
FREF CORF: ±2^1-9. UOPH'S 
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f:K:TINT = PFRPRKS RTINT 
RRRORS DF.TFCTEr:'- 8 
FRFE CORE: 12568 WORDS 

. R PIP 

•f: P E R P R R M fl C = P E R P Fi R . BR K / R; 

The following instructions will create a BASLPS.SAV with overlaying 
which has the maximum usable area. 



, R LINK 

^^'BflSLPS, BRSLPS=PRSICR. FPMP, FTBL.. PERVEC RTI NT/B : 400/T/C 

TRRNSFFR flDDRESS = 

GO 



I PS0, I PSi, LP52, LPS3.. LPS4/C: 



RRSICF/O 
RRSICK/O 
RRSICH/0 



i/C 
l/C 



To link a non-overlaying BASLPS.SAV which will have increased 
execution speed the following commands should be given to link: 

. R I I mc 

•^=RflSLPS, RR5LPS=BRF.ICR.. FPMP, BRSICE, BRSICX/B : 4Pi0/C 

f:FTBl , PERVEC. RTIMT/C 

f=LP50, I.P51 > I PS2, I PS3:, I PS4, BRSICH 



Complete configuration for building a load module with interrupt 
vector at location 300 (octal) - These instructions are the same as 
the preceding instructions except that a $V=0 parameter definition in 
PERPAR.MAC will be enabled. 



. R FDIT 

f^FBPFRPRR. MRCKDRKil) 

t= F ; $ D I S K = one R H^t) 

H-=F; $LP5=e<i)0Rr:< 

4:P; $V=CKil0Rr:( 

*F) 



. R MRCRO 

't:FTBL=^PFRPRR, FTRl. 
ERRORS r:«ETFCTFD: 6 
FREE CORF; 12058 WORDS 

* P E R V F C = P E R P R R , P F R V E C 
ERRORS DETECTED: 
FREE CORE: 12'! 39 WORDS 

>f:RTINT = PFRPRR, RTINT 
ERRORS DETECTED: 
FREE CORF: 125<=:4 WORDS 

f:'-C 
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. R PIP 

*PERPFlR. Mfli::=PF.RPRR. BRK/R 

>¥■■'- r: 



The following procedure can create the overlaying version 



. R LINK 

+=BRSI.PS, F.!RSLP£-RRE:ICR. FPMP, FTBL,. PERVEC RT I NT/B; 400/1/0 

TRRNSPFR fln-DRESS = 

GO 



I PS0- LPSi, I.P52.. LPSK, I PS4/C 
RRSICE/0:i/C 
RRSICX/O- i/C 
BflSICH/O; 2 



To create the non-overlaying version the following link commands 
should be given: 

. R LINK 

f:RR5LPS.. BRSLPS=BRSICR.. FPMP, BRSICE.. BRSICX/B : 40Gi/C: 

>f:FTRL, PERVFC RTINT/C 

*:l PS0, LP51. LPS2. I PS3.. I P54, BRSICH 



Partial Configuration - To build a load module BASARD.SAV under RT-11 
for ARll and DRll-K support (at hardware address 167750 and 360 
(octal) which includes the ADC, DIO, CLK, and DIS routines, enter the 
following command strings: 

. R EDIT 

*FBPERPRR MRC^Rti© 

*F; $r:'iSK=e(i)0Rr;<it) 

*F.; *RRli = 0(i)0Rr;(if) 
*=F: *r:.RiiK = 0(i)0f 



. R FT. IT 

+=FBPERVFC. r'1RC^(ii) 
*FOFFSTi=0®-r:-20(i© 
*FOFFc;T2==0®-CGG@f) 



, R r-1RCR0 

+ FTBL=PERPRR. FTBI. 
ERRORS DFTECTFD; 
FREE CORF; 12054 WORDS 

+: p E R V F C = P F R P R R , P F R V F 
FRRORS DFTFCTFD; 
FREE CORF; 124?' 2. WORDS 

*RTINT = PFRPRR.. RTINT 
ERRORS DETECTED; 
FREE CORE; 12560. WORDS 

>f:'-C 
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, R PIP 



PFRPRR r'1flC = PF-:RPRR. GRK/R 
PERVEC. MRC:=-P("RVEC:. EiiRK/R 



. R LINK 

f:F:RSRRD, RRSRRD=BRSICR.. FPMP, FTGL, PERVEC. RTINT/B : 400/T/C 

TRR^4SFFR ADDRESS = 

GO 

+:|.PS0, RRDi. RRD2, RRD]!:.. LPS4/C: 

*BRSIC:F/Ci:i/C 

*PR5TC:X/Ci:i/C: 

+=eR5ICH/0:2 



This procedure will create an overlaying version of BASLPS.SAV. The 
following command strings may be used to link a non-overlaid version 
of BASIC with equivalent LPS support: 

. R LINK 

»t:BRSRRD, RRSRRD=BR5IC:R, FPMP. BRSICE. BflSICK/B : 400/0 

t=FTBL . PFRVEC. RTINT/C 

f=i PS0, RRDI, RRD2, RRD5:.. LPS4. BRSICH 



The Laboratory Peripheral System support may also be purchased in 
source form. The following nine source files are provided in the 
BASIC Extensions package. 

LPS O.MAC 
LPS I.MAC 
LPS2.MAC 
LPS 3. MAC 
LPS 4. MAC 
PTBL.MAC 
PERVEC. MAC 
RTINIT.MAC 
PERPAR.MAC 



The following table lists the assembly parameters for ea<:h module: 
Source File Conditionals Define for Systems with ; 



LPS O.MAC 


None 


LPS I.MAC 


$AR11 


LPS 2. MAC 


CYC 50 




$AR11 


LPS 3. MAC 


$AR11 


LPS 4. MAC 


None 



ARll hardware 

50 Hz line frequency 
(60 Hz is default) 
ARll hardware 

ARll hardware 
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Source File Conditionals Define for Systems with; 



FTBL.MAC 


$ADC 




$CLK 




$DIO 




$DIS 




$LPS 




$AR11 




$VT11 




$DISK 




$VT55 


PERVEC.MAC 


$LPS 




$v 




$VT11 




$AR11 




$DR11K 




$NUMBR=X 




OFFSTl 




0FFST2 


RT I NT. MAC 


SDIS 



LPSl (ARDl for ARll) 

LPS2 (ARD2 for ARll) 

LPS3 (ARD3 for ARll) 

LPS4 

$LPSO (all systems with LPS support) 

ARll support 

VTll support 

RT-11 

VT55 support 

LPSll hardware 

LPS (or ARll) interrupts not at location 

340 (octal) 

VTll support 

ARll hardware 

DRll-K hardware 

Multiple (X) DRll-K hardware 

First DRll-K interrupt address not at 

167770 (octal) 

First DRll-K vector address not at 300 

(octal) 

LPS4 



The conditional $RTV2 is present in all modules to force subtitles 
assembly listings and enable RT-11 V02 system macro processing. 



in 



To assemble the LPS from the sources all the LPS files should be 
transferred to the system device using PIP, and then the following 
command should be given to the RT-11 MACRO assembler; if the line 
current is 50 Hz, the following commands should be used before calling 
MACRO: 



. R FDIT 
f=F.U|PflRRM MRC^li) 

"••••icvcsese 



*F 



. R MRCRO 

*:l_PS0=PF.RPRR, I.PSFl 
FRRORS DETECTED: 
FREF CORF: 12144. WORDS 



(for LPSll only - 
PERPAR.MAC -) 



define $LPS in 



*LP5i = PERPRR, l-PSi 
FRRORS DETECTED: 
FREE CORE: 11986. WORD 



t=LPS2=PERPRR, I.PS2 
FRRORS DETECTED: O 
FREF CORF: 12152. WORDS 



(for 60 Hz clock) 



*LPS2C=PERPRR, PRRRM, LPS! 
ERRORS DETECTED: 6 
FREE CORE: i?'i4E!. WORDS 



(for 50 Hz clock) 



*l PS~?: = PFRPRR, LPS3 
ERRORS DETECTED: O 
FREE CORF: l?e??. WORDS 
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,f:|, PS4=PFRF'RR,. I..PS4 
FRROR? DFTFCTEr?: 
FREE CORE: 12004. WORD? 

^rPiRDi =PERPRR, I PSi (for AR11& DRll-K only-define 

ERRORS DFTFCTEr?: Pi $AR11& $DR11K in PERPAR.MAC) 

FRFF CORF: 11980. WORC'S 

*RRD2=^PERPRR. I-PS2 (for 60 Hz clock) 

ERRORS DETFCTFD: © 
FRFF CORF: 12152. WORDS 

+:RRr:.2C=PERPRR, PRRRM. LPS2 (for 50 Hz clock) 
ERRORS DETECTED: Gi 
FREE CORE: 12148. WORDS 

>f:RRD3:=PERPRR.. I.PSi: 
ERRORS DETECTED: 
FREE CORF: 12072. WORDS 

Following is a listing of PERVEC.MAC which contains the interrupt 
vector location for the LPS and GT44 hardware: 

.TITLF-: PERVEC VECTOR De:Fl!NlT10N MODULE FOR BASIC SUPPORT PACKAGES. 

DEC-n-LBPVA-B BASIC KERNEL V02-01 

COPYRIGHT (C) 1974,1975 

DIGITAL EQUIPMENT CORPORATION 
MAYNARD, MASSACHUSETTS 01754 

THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO 
CHANGE WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED 
AS A COMMITMENT BY DIGITAL EQUIPMENT CORPORATION, 
DEC ASSUMES NO RESPONSIBILITY FOR ANY ERRORS THAT 
MAY APPEAR IN THIS DOCUMENT. 

THIS SOFTWARE IS FURNISHED TO PURCHASER UNDER A 
LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND 
CAN BE COPIED (WITH INCLUSION OF DEC'S COPYRIGHT 
NOTICE) ONLY FOR USE IN SUCH SYSTEM, EXCEPT AS MAY 
OTHERWISE BE PROVIDED IN WRITING BY DEC, 

DEC ASSUMES NO RESPONSIBILITY FOR THE USE 
OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT 
WHICH IS NOT SUPPLIED BY DEC. 



THIS MODULE DEFINES THE HARDWARE ADRESSES USED BY 
SUCH HARDWARE AS THE "LPS", "ARU", "DRll-K", 
THE "VTll"(GT40) AND THE "LVll". 

IF THE VECTORS FOR THESE DEVICES SHOULD CHANGE 
THIS MODULE MUST BE EDITED TO REFLECT THE CHANGE. 

DEFINE SLPS FOR LPS/ARU SUPPORT IN PEPPAR 
SARU FOR ARll MODS, 
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IF SYSTEM HAS DRll-K, $NUMBP I^UST BE DEFINED EQUAL TO TUTAL NUMBER 
OF DRll-K'S IM SYSTEM. 

DEFINE SDBllK & SNUMHR FOR DRll-K 

♦ *♦♦♦♦♦:♦;;♦: MOTE ♦*♦♦♦*♦♦:»; 

IF DRll-K(S) IS (ARE) PRESENT IN SYSTEM ALONG "w H H THE LPSll 
THE LPSDR CANNOT BE USED. 



.IFDF SLPS 

.IFNDF $V 

$V = 40 

.EN DC 

.GLOBL LPSAD,LPSADB,LPSDP,LPSDMA 

.GLOHL LPSCKS,LPSPB,LPSDRS,LPSDIB 

•GLObL LPSDOP,DRSTOF 

.GLOBL LPOISS,LPDISX,LPDlSy 

.GLOBL CKL1VA,CKHP,DRSIVA,DRSIP,LPSIVA,LPSIP 

; DEVICE EQUATES: 

LPSAD = 170400 ;LPS A/D STATUS REG. 

LPSADB = 170402 ;LPS A/D BUFFER LED REG. 

LPSCKS = 170404 ;LPS CLOCK STATUS REG. 

LPSPB = 170406 ;LPS CLOCK BUFFER PRESET REG. 

.IFNDF SARll 

LPSDR = 170410 ;LPS DIGITAL I/O STATUS REG. 

LPSDRS = LPSDR 

LPSDIB = 170412 ;LPS DIGITAL INPUT REG. 

LPSDOR = 17 0414 ?LPS DIGITAL OUTPUT REG. 

LPDISS = 17 0416 ;LPS DISPLAY STATUS REG. 

LPDISX = 170420 ;LPS DISPLAY REG. X 

LPDISY = 170422 ;LPS DISPLAY REG. Y 

• EN DC 

.IFDF SARll 

LPDISS = 17 0410 

LPDISX = 17 0412 

LPDISY = 170414 

.EN DC 

LPSDMA = 170436 ;LPS DMA REGG. 

DEFINE "OFFSTl" IF DRll-K NOT AT STANDARD LOCATION. ALL DRll-K'S 
MUST BE NEXT TO EACH OTHER ( REGISTER ADDRESS D J FFERENCE=- 1 ONLY) 





. IFDF 


$DR1 IK 


OFFSTl = 


:0 




LPSDR 


= 


167 7 70+OFFSTl 


LPSDRS 


= 


LPSDR 


LPSDIB 


= 


167 7 7 2+OFFSTl 


LPSDOR 


.EN DC 


167774+OFFSTl 




,IFG 


$NUMBR-1 


OFFSTl = 







LPSDR 


= 


167770+OFFSTl 


LPSDRS 


= 


LPSDR 


LPSDIB 


= 


167772+OFFSTl 


LPSDOR 


= 


167774+OFFSTl 



.EN DC 
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; INTERRUPT VECTOR PAIRS: 



CKLIVA = 
CKLIP = 



304+$V 
30b+$V 



;ADR. OF CLOCK INTERRUPT VECTOR 
;ADR. OF CLOCK INT. PRIORITY 



,IFNDF SARU 

DRSIVA = 310+$V 

DRSIP = 312+$V 

,ENDC 



;ADR. 
;adr. 



OF 
OF 



DRS 
DRS 



INPUT 
INPUT 



INT. 
INT. 



VECTOR 
PRIORITY 



DEFINE "0FFST2" IF DRll-K NOT AT STANDARD VECTOR LOCATION. 
.IFDF SDRUK 



OFFST2=0 

DRSIVA 

DRSIP 



.EN DC 



300+OFFST2 
302+OFFST2 



LPSIVA 
LPSIP 



TSR 
XLOC 
YLOC 
TVEC 



.EN DC 

.IFDF 
.GLOBL 



.ENDC 
.IFDF 
.GLOBL 



DPC = 

DSR = 

DISX = 

DISY = 

GTVECT = 



;GTVECT: 

;GTVECT+4: 

;GTVECT+10: 

• ENDC 

.IFDF 
.GLOBL 

LVCS = 
LVDB = 

• ENDC 



300+$V ?ADR. OF THE A/D INT. VECTOR. 
302+$V ;ADR. OF THE INT. PRIORITY. 

; $LPS 

STABLT ; PROTOTYPE WRITING TABLET 

TSR, TINT, TVEC, XLOC, YLOC 
164040 ;WRITING TABLET CSR 

TSR+2 ;X LOCATION OF TURTLE 

XLOC+2 ;Y LOCATION OF TURTLE 

270 ; INTERRUPT VECTOR 

SVTll ;GT40 

DPC, DSR, DISX, DISY, GTVECT 



172000 
DPC + 2 
DSR + 2 
DISX+2 
320 



VTU DISPLAY PC 

VTll DISPLAY STATUS REG 

VTll X STATUS REG 

VTll Y STATUS REG 

ADR. OF VTll [GT40 (GT44)] INTERRUPT 

VECTOR LIST, REDEFINING GTVECT 

REDEFINES THE ENTIRE SET 

OF DISPLAY PROCESSOR INT. VECTORS. 

DISPLAY STOP VECTOR 

LIGHT PEN HIT VECTOR 

DISPLAY TIME OUT VECTOR 



; SVTll 

SLVU 
LVCS, LVDB 

177!i>14 ; 
LVCS+2 ; 



LVll SUPPORT 



LVll STATUS REGISTER 
LVll DATA BUFFER 



THE FOLLOWING ARE GLOBAL CONSTANTS WHICH APE REDEFINED BASED ON 
THE SYSTEM CONFIGURATION ( LI KE LPS/ARll ETC.). 



.GLOBL $LPS1 1 ,S LPS 12,$ LPS 13 



;FOR LPSl MODULE 
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SLPSll: 








•IFNDF 


SARll 




.WORD 


77,4 


$LPS13= 


6000 
.ENDC 






.IFDF 


SARll 




.WORD 


17,2 


$LPS13= 


1000 






.ENDC 




$LPS12: 








.IFNDF 


SARll 




.WORD 


77,100 




.WORD 


177777,17,4 




.ENDC 






.IFDF 


SARll 




.WORD 


17,20 




.WORD 


177777,2,2 




.ENDC 




f 


.CLOBl, 


$LPS21 


$LPS21: 








.IFNDF 


SARll 




.WORD 


7,17,177777 




.ENDC 






.IFDF 


SARll 




.WORD 


7,11,377 




.ENDC 




7 


.GLOBL 


$LPS31 ;F01 


$LPS31: 








.WORD 


177777 




.WORD 


177777 




.WORD 


SNUMBR-1 


1 


.GLOBL 


$LPS32 


$LPS32: 


177777 






177777 




7 


.GLOBL 


$LPS41,SLPS 




.IFNDF 


SARll 


$LPS41: 


.WORD 


10000 


$LPS42: 


.WORD 


7777 


$LPS43: 


.WORD 


7777 


$LPS44: 


.WORD 
.ENDC 


177777 




.IFDF 


SARll 


$LPS41 : 


.WORD 


2000 


$LPS42: 


.WORD 


1777 


$LPS43: 


.WORD 


1777 


$LPS44: 


.WORD 
.ENDC 


177777 



;LPS 

•77=63. =CHAN, 4=IGAIN 

;FOR AUTO-GAIN RANGE CHECKING 



DRSON 



;LPS 

;77=63.=CHAN, 100=64, =NSC 
;177777=65535.=NPTS, 17=15. =MODE, 4=IGAIN 

;AR11 
; 17=15. =CHAN, 20=16, =NSC 
; 177777=65535. =NPTS, 2=M0DE, 2=IGAIN 



;FOR LPS2 MODULE 

;LPS 

;7=RATE, 17=15. =MODE, 1 77777=65535 . =PRESET 

;AR11 
;7=RATE, 11=9.=M0DE, 377=255 . =PRESET 



;177777=65535.=N 

7177777=65535. =MASK 

7NUMBER OF DRll-K'S IN SYSTEM. DEFAULT=1 



7177777=65535. =SW 

7 1 77777=65535. =VAP( WRITE) 

.PS43,$LPS44 7F0R LPS4 MODULE 
7 LPS 

7 10000 = 4096. =XM AX/ YM AX 
;7777=4095.=N 
77777=4095.=! 
;177777=65535.=NP 

7AR11 
7 2000=1024.=XMAX/YMAX 
71777=1023. =N 
71777=1023. =1 
7177777=65535. =NP 



.globl drson, drstof 7digital i/o storage varies with 

7 total number of drll-k's ih system 

7Drson:o: drs operation im progress 

7BCD0N:2: HCD/BINARY SWITCH 

7DRSBUF:4: drs BUFFER DESCRIPTOR ADD 

?drsnpt:6: drs number of points 

7MASKI10: dps mask FOR INPUT 

7DRTBUF:12; DRS TIME BUFFER DESC . 
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.WORD 





• WORD 





.WORD 





.WORD 






DRSTOFs. -ORSON 
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.IFG 


SNUMBP"! 




.WORD 





;DRSON:0: 


.WORD 





;BCD0N:2: 


.WORD 





;DRSBUF:4: 


.WORD 





;DRSNPT:6: 


.WORD 





; MASK: 10: 


.WORD 





;DRTBUF:12 


,ENDC 






.IFG 


$NUMBR"2 




.WORD 





;DRSON:0: 


.WORD 





;BCD0N:2: 


.WORD 





;DRSBUF:4: 


.WORD 





;DRSNPT:6: 


.WORD 





; MASK: 10: 


.WORD 





;DRTBUF:12 


,ENDC 






.IFG 


$NUMBR"3 




.WORD 





;DRSON:0: 


.WORD 





;BCD0N:2: 


.WORD 





;DRSBUF:4: 


• WORD 





;DRSNPT:6: 


.WORD 





;MASK:10: 


• WORD 





?DRTBUF:12 


.ENDC 






.IFG 


$NUMBR"4 




.WORD 





;DRSON:0: 


.WORD 





;BCD0n:2: 


.WORD 





;DRSBUF:4: 


.WORD 





;DRSNPT:6: 


.WORD 





; MASK: 10: 


.WORD 





;DRTBUF:12 


.ENDC 






.IFG 


$NUMBR"5 




.WORD 





;drson:0: 


.WORD 





;BCD0N:2: 


.WORD 





;DRSBIif:4: 


.WORD 





?drsnpt:6: 


.WORD 





; MASK: 10: 


.WORD 





;DRTBUF:12 


.ENDC 






.IFG 


$NUMBR-6 




.WORD 





;DRSON:0: 


.WORD 





;BCD0N:2: 


.WORD 





;DRSBI]F:4: 


.WORD 





;DRSNPT:6: 


.WORD 





; MASK: 10: 


.WORD 





;DRTBUF:12 


.ENDC 






.IFG 


$NUMBR'-7 




.WORD 





;drson:0: 


.WORD 





;BCD0N:2: 


.WORD 





;DRSBUF:4: 


.WORD 





;DRSNPT:6: 


.WORD 





;mask:10: 


.WORD 





?drtbuf:12 


.ENDC 






.IFG 


$NUMBR'-10 




.WORD 





;DRSON:0: 


.WORD 





;BCD0N:2: 


.WORD 





;DRSBUF:4: 


.WORD 





;drsnpt:6: 



dps operation in progrfss 

BCD/binary switch 

dps buffer descriptor add, 

drs number of points 

dps mask fop input 

drs time buffer desc. 



DRS OPERATION IN PROGRESS 

BCD/BINARY SWITCH 

DRS BUFFER DESCRIPTOR ADD. 

DRS NUMBER OF POINTS 

DRS MASK FOR INPUT 

DRS TIME BUFFER DESC. 



DPS OPERATION IN PROGRESS 

BCD/BINARY SWITCH 

DRS BUFFER DESCRIPTOR ADD, 

DRS NUMBER OF POINTS 

DPS MASK FOR INPUT 

DRS TIME BUFFER DESC. 



DRS OPERATION IN PROGRESS 

BCD/BINARY SWITCH 

DRS BUFFER DESCRIPTOR ADD. 

DRS NUMBER OF POINTS 

DRS MASK FOR INPUT 

DPS TIME BUFFER DESC. 



DRS OPERATION IN PROGRESS 

BCD/BINARY SWITCH 

DRS BUFFER DESCRIPTOR ADD. 

DPS NUMBER OF POINTS 

DPS MASK FOR INPUT 

DRS TIME BUFFER DESC. 



DRS OPERATION IN PROGRESS 

BCD/BINARY SWITCH 

DRS BUFFER DESCRIPTOR ADD, 

DRS NUMBER OF POINTS 

DRS MASK FOR INPUT 

DRS TIME BUFFER DESC, 



DRS OPERATION IN PROGRESS 

BCD/BINARY SWITCH 

DRS BUFFER DESCRIPTOR ADD 

DPS NUMBER OF POINTS 

DPS MASK FOR INPUT 

DPS TIME BUFFER DESC, 



DRS OPERATION IN PROGRESS 
BCD/BINARY SWITCH 
l^RS BUFFER DESCRIPTOR ADD 
DRS NUMBER OF POINTS 
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,WDRU 







; mask: 10: 


,WORD 







?DRTBUF:12: 


• ENDC 








.IFG 


SNUMBR- 


■11 




.WORD 







;DRsnN:0: 


.WORD 







;BCD0N:2: 


.WORD 







;DRSBUF:4: 


.WORD 







;DRSNPT:6: 


.WORD 







; MASK: 10: 


.WORD 







;DRTBUF:12: 


.ENDC 








.IFG 


SNUMBR- 


■12 




.WORD 







;DRSON:0: 


.WORD 







?bcdon:2: 


.WORD 







;DRSBUF:4: 


.WORD 







;DRSnpt:6: 


.WORD 







; mask: 10: 


.WORD 







;drtbuf:12: 


.ENDC 








,IFG 


SNUMBR- 


•13 




.WORD 







;drson:0: 


.WORD 







;BCD0N:2: 


.WORD 







;drsbuf:4: 


.WORD 







;drsnpt:6: 


.WORD 







;mask:10: 


.WORD 







;DRTBUF:12: 


.ENDC 








.IFG 


SNUMBR- 


•14 




.WORD 







;drson:0: 


.WORD 







?bcdon:2: 


.WORD 







;drsbuf:4: 


.WORD 







;DRSnpt:6: 


.WORD 







; mask: 10: 


.WORD 







;DRTBUF:12: 


.ENDC 








.IFG 


SNUMBR- 


■15 




.WORD 







;drson:0: 


.WORD 







;bcdon:2: 


.WORD 







;drsbuf:4: 


.WORD 







;DRSNPT:6: 


.WORD 







?mask:10: 


.WORD 







;drtbuf:12: 


,EMDC 









DBS mask for input 
DRS TIME buffer DESC. 



dps OPERATION IN PROGRESS 

BCD/BINARY SWITCH 

DRS BUFFER DESCRIPTOR ADD, 

DRS NUMBER OF POINTS 

DRS MASK FOR INPUT 

DRS TIME BUFFER DESC. 



DRS OPERATION IN PROGRESS 

BCD/BINARY SWITCH 

DPS BUFFER DESCRIPTOR ADD, 

DRS NUMBER OF POINTS 

DRS MASK FOR INPUT 

DRS TIME BUFFER DESC. 



DRS OPERATION IN PROGRESS 

BCD/BIMARY SWITCH 

DRS BUFFER DESCRIPTOR ADO 

DPS NUMBER OF POINTS 

DRS MASK FOR INPUT 

DRS TIME BUFFER DESC. 



DRS OPERATION IN PROGRESS 

BCD/BINARY SWITCH 

DRS BUFFER DESCRIPTOR ADD, 

DRS NUMBER OF POINTS 

DRS MASK FOR INPUT 

DRS TIME BUFFER DESC. 



DRS OPERATION IN PROGRESS 

BCD/BINARY SWITCH 

DRS BUFFER DESCRIPTOR ADD, 

DPS NUMBER OF POINTS 

DPS MASK FOR INPUT 

DRS TIME BUFFER DESC. 



.END 



B.2 BASIC/CAPS-11 



B.2.1 LPS Support 

The Laboratory Peripheral System (LPS) support for BASIC is supplied 
in ten binary files. 



LPSO.OBJ 
LPSl.OBJ 
ARDl.OBJ 



Required 
Optional 
Optional 



LPS kernel module for LPSll or 

ARll and DRll-K. 

Analog to digital conversion 

for LPSll. 

Analog to digital conversion 

for ARll and DRll-K. 
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LPS2.0BJ 
ARD2.0BJ 

LPS2C.0BJ 
ARD2C.0BJ 

LPS3.0BJ 
ARD3.0BJ 
LPS4.0BJ 



■A 



One is required 



J 



Optional 
Optional 
Optional 



Real-time clock (60 Hz line 

frequency) for LPSll. 

Real-time clock (60 Hz line 

frequency) for ARll and 

DRll-K. 

Real-time clock (50 Hz line 

frequency) for LPSll. 

Real-time clock (50 Hz line 

frequency) for ARll and 

DRll-K. 

Digital input/output for 

LPSll. 

Digital input/output for ARll 

and DRll-K. 

Display for LPSll or ARll and 

DRll-K. 



The standard BASIC/CAPS binary kit contains all the object modules 
required to link a version of BASIC/CAPS that contains LPS support 
(with all four optional LPS modules) . 

There are also the following files which are provided in source form 
in all kits: 

FTBL.PAL Function Table Module 

PERVEC.PAL Vector Definition Module 

BASINT.PAL Interface Module 

PERPAR.PAL Parameter file 



NOTE 

BASIC with LPS support requires a PDP-11 
with 16K or more of memory. The 
procedures in this section assume the 
user has at least 16K of memory and has 
reconfigured his CAPS-11 system, along 
with PAL and LINK, for 16K. 



To create a version of BASIC/CAPS with complete LPS support, no GT 
support, and a standard hardware configuration, it is only necessary 
to link the supplied object modules. 

To create a customized version of BASIC/CAPS with LPS support, the 
parameter file PERPAR.PAL is edited and assembled with FTBL.PAL, 
PERVEC.PAL and BASINT. The three object modules produced are then 
linked with the LPS and BASIC object modules to produce a load module. 



NOTE 

All of the procedures in this section 
assume that an unaltered PERPAR.PAL is 
being edited. It is recommended that a 
copy of the original PERPAR.PAL be made 
and saved for future use. 
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The BASINT.PAL interface module should be used with all versions of 
BASIC/CAPS. If the display module is not included in the LPS support 
to be linked, another background routine may be linked with BASIC but 
it must be defined in this module. 

For the LPS routines to be accessible from the BASIC CALL statement, 
the routine must be defined in a System Function Table. FTBL.PAL is a 
function table in source form. If any user-written assembly language 
routines are also linked with BASIC the routines must be defined in 
this function table. 

PERVEC.PAL is the vector definition module. It defines the hardware 
addresses of the status registers and the interrupt vectors. The 
standard hardware address for the LPS (or ARll) interrupt vector is 
340 (octal). In PDP-llElO machines with LPS (or ARll) support, 
however, the interrupt vector is location 300 (octal). To assemble 
PERVEC with the interrupt vector at 300 (octal) it is necessary to 
delete the semicolon before the $V=0 definition in PERPAR.PAL. If the 
interrupt locations are at another location in memory, correct the 
interrupt addresses by using the system editor to define $V in PERPAR 
equal to the interrupt address minus 300 (octal). For example, if the 
LPS (or ARll) interrupt vectors start at 320 (octal) define $V=20 
(octal) . A listing of PERVEC.PAL is printed at the end of section 
B.1.2. To link the LPS (or ARll) module with BASIC it is necessary to 
delete the semicolon ( ; ) before the $LPS = (or $AR11 = 0) statement in 
PERPAR.PAL. If any of the four optional modules are not to be 
included, a semicolon (;) must be inserted before the appropriate 
conditional . 

Parameter Insert ; before parameter if 

$ADC=0 module LPSl or ARDl is not to be included. 

$CLK=0 module LPS2 (LPS2C) or ARD2 (ARD2C) is not to be 
included . 

$DIO=0 module LPS3 or ARD3 is not to be included. 

$DIS=0 module LPS4 is not to be included. 

Using the system assembler PAL, the sources are assembled in the 
following combinations to produce the needed LPS object modules: 

Object File Source Files 

FTBL PERPAR, FTBL 

PERVEC PERPAR, PERVEC 

BASINT PERPAR, BASINT 

After these modules have been assembled, the LPS support may be linked 
with the BASIC object modules with only the desired optional LPS 
modules included in the LINK command strings. 

After BASLPS has been linked it may be loaded by the following monitor 
command : 

.R BASLPS 

At this point the standard BASIC initial dialogue occurs. 
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As part of the initial dialogue, BASIC prints: 

USER FNS LOADED 

This message occurs whenever BASIC has been linked with LPS support. 

When editing PERPAR.PAL, $LPS=0 should be enabled for BASIC with any 
LPS support (or $AR11 for ARll support), and $ADC=0, $CLK=0, $DIO=0, 
and $DIS=0 should be disabled whenever the appropriate optional LPS 
module is not to be included. In addition, $V=0 should be enabled for 
any PDP-11 with LPS (or ARll) hardware interrupt located at 300 
(octal) instead of 340 (octal) . Most PDP-llElO with LPS (or ARll) 
require the defining of the $V=0 assembly parameter. For hardware 
addresses other than 300 or 340, define $V as described in paragraph 
about PERVEC.PAL. Linking BASIC/CAPS with LPS Support 

The procedures for building the following load modules are described 
below: 

BASIC/CAPS with complete LPS support. 

BASIC/CAPS with complete LPS support and LPS interrupt 
vectors at location 300 (octal) . 

BASIC/CAPS with only the ADC and DIS optional display 

modules . 

Since all editing instructions assume an original PERPAR.PAL, a copy 
of the original file should be preserved to allow any future load 
modules to be built from an unedited PERPAR.PAL. 

In all the following examples the user can substitute the module LPS2C 
for the module LPS2 if the line frequency is 50 Hz instead of 60 Hz. 

Complete Configuration 

To build a load module BASLPS.SLO under CAPS-11 including LPS support 
and all four optional modules, enter the following command strings: 

(MOUNT A SCRATCH CASSETTE ON DRIVE 1) 

♦ Z 1. : 

(TYPE <CR>) 

(MOUNT A SECCOND SCRATCH CASSETTE ON DRIVE 1) 

♦R EDIT 

*EW1 : PERPAR ♦ LPJiKM) 

(WHEN CASSETTE ON DRIVE REWINDS, MOUNT 
CASSETEE CONTAINING PERPAR.PAL ON DRIVE 0) 

*ERO : PERPAR . PM^4M) 

>KFy*CAPS:^< 

*F?$L.PS= 

*EX$$ 

♦ R PAL 1.6 

*0 : FTBL ♦ QB J/P=^:= 1 t PERPAR ♦ LP8/P y F" TBI. » P AL/P 
1? 
1? 
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PASS 2 

0? 

1? 

1? 

000000 ERRORS 

*0 : PERVEC » OB J=::^ 1 1 PERPAR * LPS/P f PERMEC ♦ PAL/P 

1? 

1? 

PASS 2 

1? 

1? 

000000 ERRORS 

1? 

1? 

PASS 2 

1? 

1? 

000000 ERRORS 



*"C 



(Mount CAPS-11 system cassette on unit 0) 
(Mount scratch cassette on unit 1) 

(Mount BASIC object module cassette containing 

BASICR.OBJ 

on unit 1) 



♦R LINK 



(When unit has rewound, mount zeroed scratch 

cassette 

on unit 0) 

*1 tBASLPS . SLO y LP : -^^^O J BASICR ? FPMP v B AS ICE ? BASICX 9 BASICS/B t 400/C 
r FTBL/P y PERUEC j- BASINT 9 LPSO/P y LPSl 9 LPS2 y LPS:^ y LPS4 y BASICH/P 

0? (Mount cassette with FTBL.OBJ on unit 0) 

0? (Mount cassette with LPSO.OBJ on unit 0) 

0? (LOAD MAP PRINTED) 

PASS 2 

0? (Mount cassette with FTBL.OBJ on unit 0) 



B-20 



BUILDING LOAD MODULES 

0? (Mount cassette with LPS 0. OBJ on unit 0) 

0? (Mount cassette with BASICH.OBJ on unit 0) 

^""C (Done. Cassette on unit contains a new 

BASLPS.SLO 

which is BASIC/CAP^ plus all LPS support-interrupt 
vectors 
at 340 (octal) ) . 

Complete Configuration 

Interrupt vectors at location 300 (octal) 

These instructions are the same as the preceding instructions 
except that a $V=0 parameter definition in PERPAR.PAL is 
enabled . 

To change the interrupt vector location, the file PERPAR.PAL 
must be edited to enable the $V=0 parameter definition. The 
new PERPAR is then used to reassemble PERVEC.PAL to 
redefine the vector locations. 

(D represents the ALTMODE key 
(Mount CAPS-11 system cassette on unit 0) 
(Mount scratch cassette on unit 1) 
Z It 

(Mount a second scratch cassette on unit 1) 
♦ Z It 

«R EDIT 

*EW:l. JF^'ERPAR J..,F'{3(ii) 

(Mount BASIC object cassette containing PERPAR.PAL 

on unit 0) 
*ERO t PERF'AR * PAL^DRdP© 
*F" ?*CAPS-==0®)Ai:@® 
*F5iHLPS:===0iX)Ai:(ii) 
*F?$V-=::(XiX>A](:^i) 
){<EX$$ 

(Mount CAPS-11 system cassette on unit 0) 
*R PALI 6 

)KF- TBL/P;===:l t PERPAR ♦ LPS/P » FTBL * PAL/P 

1? (Type any keyboard character) 

1? (Mount cassette with FTBL. PAL on unit 1) 

PASS 2 

0? (Mount second scratch cassette on unit 0) 

i? (Mount cassette with new PERPAR.PAL on unit 1) 

I? (Mount cassette with FTBL. PAL on unit 1) 

000000 ERRORS 

>KPERMEC:^:=:l. t PERPAR . LPS/P v PERVEC « PAL/P 

;l? (Mount cassette with PERPAR. LPS on unit 1) 

:L? (Mount cassette with PERVEC.PAL on unit 1) 
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F'ASS 2 

1? (Mount cassette with PERPAR.LPS on unit 1) 

1.? (Mount cassette with PERVEC.PAL on unit 1) 

(Now the cassette on unit has a new PERVEC.OBJ) 
000000 ERRORS 

*BA8INT^=:-:l. t PERI"'AR * I.J-'S/P y BABINT * PAL/P 

1? (Mount cassette with PERPAR.LPS on unit 1) 

1? (Mount cassette with BASINT.PAL on unit 1) 

(Cassette on unit now contains a new BASINT.OBJ) 
PASS 2 

1.? (Mount cassette with PERPAR.LPS on unit 1) 

1? (Cassette on unit now contains a new BASINT.OBJ) 

000000 ERRORS 

(Mount CAPS-11 system cassette on unit 0) 
(Mount cassette containing BASICR.OBJ on unit 1) 

♦R LINK 

(When unit has rewound, mount cassette with new 
PERPAR.PAL on unit 1) 

(Mount cassette with BASICR.OBJ on unit 0) 

* :l. t B A S I... I"" S » S I.. J L.. !-• : :••== B A S :i: C R V F F M F v B A S I C E ^ B A S I C X ? B A S 1 C S / B J 4 / C 
y F T B L / F=' i- !-■ E. R M E C^ s- B A S 1 N T 9 1... I-' SO/ 1-' v L F S 1 y I... F S 2 v I... I-' S 3 » I... I-' S 4 y B A S I C H / 1-" 

0? (Mount cassette with new FTBL.OBJ on unit 0) 

0? (Mount cassette with LPSO.OBJ on unit 0) 

0? (Mount cassette with BASICH.OBJ on unit 0) 

(LOAD MAP PRINTED) 
PASS 2 

0? (Mount cassette with new FTBL.OBJ on unit 0) 

0? (Mount cassette with LPSO.OBJ on unit 0) 

0? (Mount cassette with BASICH.OBJ on unit 0) 

^"^C (Done. New version of BASLPS.SLO with LPS 

interrupt vectors at 300 is on cassette 1) 

Partial Configuration 

To build a load module BASLPS.SLO of BASIC/CAPS which includes only 
the ADC and display routines, enter the following command strings: 

(Mount CAPS-11 system cassette on unit 0) 
(Mount scratch cassette on unit 1) 
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♦ Z It 

(Mount second scratch cassette on unit 1) 

.Z :l. J 

.R EDIT 

>KEW:l. JPERPARJ...P$iJ®i) 

>KERO t PER PAR * P Al..®l^|l® 

)K E. R t F E R F^' A R . P A l..®-;(|gli) 

)KFP$CAPS=^==(Xi)()Ai:(ii) 

)!<F?$I...PB===:0®()Alt:^)lD 

*F$CLK=::=(3dEX)AIp(M) 

>icF*Di(:)==^o(iOAXP<3i) 

*EXM) 

(Mount CAPS-11 system cassette on unit 0) 

For ARll support, enter the following command strings after mounting 
second scratch cassette on unit 1: 

«R PALI 6 

>KFTBI.../P:==: 1 1 PERPAR * LPS/P 9 FTBL * PAL/P 

:l.? (Type any keyboard character) 

1? (Mount cassette with FTBL. PAL on unit 1) 

PASS 2 

0? (Mount second scratch cassette on unit 0) 

1? (Mount cassette with new PERPAR. PAL on unit 1) 

1.? (Mount cassette with FTBL. PAL on unit 1) 

000000 ERRORS 

(Cassette on unit now contains a new FTBLL.OBJ) 

>K P E R M E C =::: ;l. t P E R F' A R ♦ L. I-' S / P v P E R M E C) * P A l.„ / P 

:l.? (Mount cassette with PERPAR. LPS on unit 1) 

1.? (Mount cassette with PERVEC.PAL on unit 1) 

PASS 2 

1? (Mount cassette with PERPAR. LPS on unit 1) 

1? (Mount casset with PERVEC.PAL on unit 1) 

(iSlow the cassette on unit has a new PERVEC.OBJ) 
000000 ERRORS 

* B A s :i: N r ==:: :i. x p e r i-- a r ♦ i... i-' s / 1-- y b a s :i: n r * i"' a l / 1-' 

1? (Mount cassette with PERPAR. LPS on unit 1) 

1.? (Mount cassette with BASINT.PAL on unit 1) 

(Cassette on unit now contains a new BASINT.OBJ) 

PASS 2 
•I'i* 



i? 
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000000 ELFilRORS 



)K"C 



LINK 



(Mount CAPS-11 system cassette on unit 0) (Mount 
cassette containing BASICR.OBJ on unit 1) 

(When unit has rewound, mount cassette 
containing new PERPAR.PAL on unit 0) 



* 1 J B A C) I.. I"' S * S I... C) V I... I"* X ■■■■■■■■ B A S 1 C R y F P M I"' y B A S 1 C E. ? B A S I C; X ? B A S I C S / B t 4 / C; 
9 F T B I... / 1"' y F E R V E C; y B A S 1 N T y I... I"' S / F y I... I"' S 1 y I... I"" S 4 y B A S 1 C H / F 

0? (Mount cassette with new FTBL.OBJ on unit 0) 

0? (Mount cassette with LPSO.OBJ on unit 0) 

0? (Mount cassette with BASICH.OBJ on unit 0) 

(LOAD MAP PRINTED) 
F-'ASS 2 ^ 

0? (Mount cassette with new FTBL.OBJ on unit 0) 

0? (Mount cassette with LPSO.OBJ on unit 0) 

0? (Mount cassette with BASICH.OBJ on unit 0) 

>K-^C (Done. New version of BASLPS.SLO with only ADC 

and display routines, interrupt vectors at 340, is 

♦ on cassette 1) 

Assembling LPS, ARll Support from the Sources 

The Laboratory Peripheral System support may also be purchased in 
source form. The following nine source files are provided. (The 
source files for FTBL, BASINT, PERPAR, and PERVEC are provided with 
the binary kit.) 

LPSO.PAL 
LPSl.PAL 
LPS2.PAL 
LPS3.PAL 
LPS4.PAL 
FTBL. PAL 
PERVEC. PAL 
BASINT. PAL 
PERPAR.PAL 
The following table lists the assembly parameters for each module: 

Source File Conditionals Define for Systems with : 

LPSO.PAL None 

LPSl.PAL $AR11 ARll hardware 

$CAPS PTS hardware 

LPS2.PAL CYC50 50 Hz line frequency 

(60 Hz is default) 
$AR11 ARll hardware 
$CAPS PTS hardware 

LPS3.PAL $AR11 ARll hardware 

LPS4.PAL None 
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Source File Conditionals Define for Systems with : 

LPSl (ARDl for ARll) 

LPS2 (ARD2 for ARll) 

LPS3 (ARD3 for ARll) 

LPS4 

$LPSO (all systems with LPS support) 

ARll support 

VTll support 

RT-11 

VT55 support 

LPSll hardware 

LPS interrupts not at location 340 

(octal) 

VTll support 

ARll hardware 

DRll-K hardware 

Multiple (X) DRll-K hardware 

First DRll-K interrupt address not at 

167770 (octal) 

First DRll-K vector address not at 300 

(octal) 

LPS4 

To assemble the LPS object modules from the sources, use the following 
command strings: 

.R EDIT 

*;i:CYC50==:=2 



FTBL.PAL 


$ADC 




$CLK 




$DIO 




$DIS 




$LPS 




$AR11 




$VT11 




$DISK 




$VT55 


PERVEC.PAL 


$LPS 




$v 




$VT11 




$AR11 




$DR11K 




$NUMBR=X 




OFFSTl 




0FFST2 


HAS INT. PAL 


$DIS 



tEyiM) 



.R PAL:l.6 

* :l. t LP80 . OB J^:=^0 t PE RP AR * I...PS/P y LP SO * PM.../\ 

0? 

0? 

PASS 2 
0? 

0? 

000000 ERRORS 

>K :l. t LPS :l. * OB J:^^^0 t PERP AR * LT'-S/P v LPS 1 , P AL/r 

0? 

0? 



(Mount cassette 
PERPAR.PAL on unit 0) 



with 



(Mount cassette with LPSO.PAL 
on unit 0) 



(Mount cassette 
PERPAR.PAL on unit 0) 



with 



(Mount cassette with LPSO.PAL 
on unit 0) 



(Mount cassette 
PERPAR.PAL on unit 0) 



with 



(Mount cassette with LPSl. PAL 
on unit 0) 
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PASS 2 
0? 

0? 

000000 ERRORS 

* 1 t LPS2 . OB J^:^=0 t F'ERF'AR * LF'S/P v I... PS 2 * PAI.../P 

0? 



(Mount cassette 
PERPAR.PAL on unit 0) 



with 



(Mount cassette with LPSl.PAL 
on unit 0) 



(Mount cassette 
PERPAR.PAL on unit 0) 



with 



PASS 
0? 

0? 



(Mount cassette with LPS2.PAL 
on unit 0) 



(Mount cassette with 
PERPAR.PAL on unit 0) 

(Mount cassette with LPS2.PAL 
on unit 0) 



000000 ERRORS 

For line frequency of 50 Hz, use LPS2C instead of LPS2. 

1 1 t I...PS2C , OB J^^^^O t PERPAR . I...PS/P y PAR AM . PAL/F y I... PS 2 * P AL/P 

0? 



PASS 2 
0? 

0? 

000000 ERRORS 

1 1 1 LPS3 . OB J==:^0 t PERPAR , LPS/P -j LPS 3 , PAL/P 

0? 

0? 

PASS 2 
0? 



(Mount cassette with 
PERPAR.PAL and PARAM.PAL on 
unit 0) 

(Mount cassette with LPS2.PAL 
on unit 0) 



(Mount cassette with 
PERPAR.PAL and PARAM.PAL on 
unit 0) 

(Mount cassette with LPS2.PAL 
on unit 0) 



(Mount cassette 
PERPAR.PAL on unit 0) 



with 



(Mount cassette with LPS3.PAL 
on unit 0) 



(Mount cassette 
PERPAR.PAL on unit 0) 



with 
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0? 

000000 EFU^^ORS 

ti t LPS A . OB J=^:'0 t PE: F^PAR ♦ LPS/P v LPS 4 ♦ PAL/P 

0? 

0? 

PASS 2 
0? 

0? 



(Mount cassette with 
on unit 0) 



LPS3.PAL 



(Mount cassette 
PERPAR.PAL on unit 0) 

(Mount cassette with 
on unit 0) 



(Mount cassette 
PERPAR.PAL on unit 0) 

(Mount cassette with 
on unit 0) 



with 



LPS4.PAL 



with 



LPS4.PAL 



000000 ERRORS 

For ARll support, assemble the ARD files instead of LPS files 

)K :l. ? A R i;i 1 « B J --^^ P E R P A 1=;; * A R B / P •> L P S :l. . I-' A I... / P 

0? (Mount cassette 

PERPAR.ARD on unit 0) 

0? (Mount cassette with 

on unit 0) 

PASS 2 

0? 

0? 



with 



LPSl.PAL 



(Mount cassette 
PERPAR.ARD on unit 0) 

(Mount cassette with 
on unit 0) 



with 



LPSl.PAL 



000000 ERRORS 

*:l. t ARD2 . OB J^=M"'ERPAR « ARB/P y LPS2 . PAL/P 

0? 

0? 

PASS 2 



0? 



(Mount cassette 
PERPAR.ARD on unit 0) 

(Mount cassette with 
on unit 0) 



(Mount cassette 
PERPAR.ARD on unit 0) 

(Mount cassette with 
on unit 0) 



with 



LPS2.PAL 



with 



LPS2.PAL 



000000 ERRORS 
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)K1 t ARD2C . GB J^^^^O t PERI-'AR . ARD/P v PAR AM . PAL/F y l..,PS2 * PAI.../P 

0? (Mount cassette with 

PERPAR.ARD and PARAM.PAL on 
unit 0) 

0? (Mount cassette with LPS2.PAL 

on unit 0) 

PASS 2 

0? (Mount cassette with 

PERPAR.ARD and PARAM.PAL on 
unit 0) 

0? (Mount cassette with LPS2.PAL 

on unit 0) 

000000 ERRORS 

■^^1 t ARD3 « OB J^^^^PE RPAR . ARD/P y I...PS3 . PAI.../P 

0? (Mount cassette with 

PERPAR.ARD on unit 0) 

0? (Mount cassette with LPS3.PAL 

on unit 0) 

PASS 2 

0? (Mount cassette with 

PERPAR.ARD on unit 0) 

0? (Mount cassette with LPS3.PAL 

on unit 0) 

000000 ERRORS 

Building a load module may now be accomplished by following the 
instructions in the preceding paragraphs. 



B.3 BASIC/PTS-11 

B.3.1 LPS Support 

The LPS support for paper tape is supplied in twelve binary tapes: 

LPSO.OBJ Required LPS kernel module for LPSll or 

ARll and DRll-K 

LPSl.OBJ Optional Analog to digital conversion 

for LPSll 

ARDl.OBJ Optional Analog to digital conversion 

for ARll and DRll-K 
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LPS2.0BJ 

ARD2.0BJ 

LPS2C.0BJ 

ARD2C.0BJ 

LPS3.0BJ 
ARD3.0BJ 

LPS4.0BJ 

PTSSTR 
PTSNST 



J 



One is required 



Optional 
Optional 



Optional 

One is 
required 



Real-time clock ( 
frequency) for LPS 
Real-time clock (6 
frequency) for ARl 
Real-time clock ( 
frequency) for LPS 
Real-time clock ( 
frequency) for ARl 
Digital input/outp 
Digital input/outp 
and DRll-K 
Display for LPSll 
DRll-K 

Patch for BASIC wi 
Patch for BASI 
strings 



60 Hz line 
11 

Hz line 

1 and DRll-K 
50 Hz line 
11 

50 Hz line 
1 and DRll-K 
ut for LPSll 
ut for ARll 

or ARll and 

th strings 
C without 



The following files are provided in source form: 

FTBL.MAC Function Table Module 

PERVEC.MAC Vector Definition Module 

PTSINT.MAC Interface Module 

PERPAR.MAC Parameter 

To build a load module BASLPS (BASIC with LPS support) , the parameter 
file PERPAR.MAC is edited and then assembled with FTBL, PERVEC and the 
appropriate interface module. The six object modules produced are 
then linked with the LPS and BASIC object modules to produce a load 
module. The specific instructions that are given to the system 
programs (editor, assembler, and linker) are given in the examples 
that follow the general description of load module building. 

The two patch tapes, PTSSTR and PTSNST, alter one location in BASICL 
to permit the LPS scope to be refreshed by a background routine, a 
routine that is active while BASIC waits for input. A patch tape 
should only be used with BASIC/PTS VOL The Patch tape used should be 
linked after the last LPS tape. PTSNST should be linked when BASICL 
without strings is linked and PTSSTR should be linked when BASICL with 
strings is linked. 

NOTE 

All of the procedures in this section 
assume that an unaltered PERPAR is being 
edited. It is recommended that a copy 
of the original PERPAR be made and saved 
for future use. 

The BASINT interface module should be used with all versions of BASIC 
except BASIC/PTS VOl which should have PTSINT used in the place of 
BASINT. 

For the LPS routines to be accessible from the BASIC CALL statement, 
the routine must be defined in a System Function Table. FTBL.MAC is a 
function table in source form. If any user-written assembly language 
routines are also linked with BASIC the routines must be defined in 
this function table. 

PERVEC is the vector definition module. It defines the hardware 
addresses of the status registers and the interrupt vectors. The 
standard hardware address for the LPS interrupt vector is 340 (octal) . 
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In PDP-llElO machines with LPS support, however, the interrrupt vector 
is location 300 (octal) . To assemble PERVEC with the interrupt vector 
at 300 (octal) it is necessary to delete the semicolon before the $V=0 
definition in PERPAR.MAC. If the interrupt locations are at another 
location in memory then correct the interrupt addresses by using the 
system editor to define $V in PERPAR equal to the interrupt address 
minus 300 (octal). For example, if the LPS interrupt vectors start at 
320 (octal) define $V=20 (octal) . 

To link the LPS module with BASIC, it is necessary to delete the 
semicolons (;) before the $LPS=0 statement. If any of the four 
optional modules are not to be included, a semicolon (;) must be 
inserted before the appropriate conditional. 

Parameter Insert ; before parameter if 

$ADC=0 module LPSl or ARll is not to be included. 

$CLK=0 module LPS2 (LPS2C) or ARll is not to be included. 

$DIO=0 module LPS3 or ARll is not to be included. 

$DIS=0 module LPS4 or ARll is not to be included. 

$STRNG=0 no string version of BASICL is to be linked. 

Using the system assembler, the sources are assembled in the following 
combinations to produce the needed LPS object modules: 

Object File Source Files 

FTBL PERPAR, FTBL 

PERVEC PERPAR, PERVEC 

BASINT or PERPAR, BASINT 

PTSINT PERPAR, PTSINT 

After these modules have been assembled, the LPS support may be linked 
with the BASIC object modules with only the desired optional LPS 
modules included in the LINK command strings. 

Example Load Buildings 

Examples are given for building a load module for the following three 
systems : 

1. BASIC with strings, with complete LPS (or ARll) support, and 
with the LPS (or ARll) interrupt vectors located at 340 
(octal) . 

2. BASIC without strings with complete LPS (or ARll) support and 
with the LPS (or ARll) interrupt vectors located at 300 
(octal) . 

3. BASIC with strings, with a partial LPS (or ARll) 
configuration (one that includes the ADC, DIS, and CLK but 
does not include the DIO) , and with the LPS (or ARll) 
interrupt vectors located at 340 (octal) . 
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To build a load module called BASLPS.LDA, the following instructions 
should be followed: 

Load ED-11 (the PDP-11 Paper Tape Software Text Editor) which is used 
to edit a source paper tape, PERPAR, which describes the required 
options. Place the supplied PERPAR.MAC in the high speed paper tape 
reader then follow one of these three procedures: 

1. For a load module of BASIC including strings with support for 
a complete configuration of the LPS (all four optional 
modules) and with the LPS interrupt vectors at location 340 
(octal) , the following instructions should be given to the 
editor : 

*I H 

*0 H 

*R 

*H 

; $CflPS=0 

; $C:fiPS=0 

f=0Fl 

*D 

; $LPS=0 
; $LPS=0 

f:0R 

*D 
*B 
*/P 
*4T 



At this point, the punch has the edited PERPAR. 
Or for a load module of BASIC with no strings, with support 
for a complete configuration of the LPS and with the LPS 
vectors located at 300 (octal) , the following instructions 
should be given to the editor: 

*I H 

*0 H 

*R 

*H 

; $CflPS=0 

; $C:RPS=0 

'»:0R 
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$STRNQ=0 
$STRNG=0 
*0fl 



; *LP5=0 
.: $LPS = 
f:0fl 

*D 

; $V=0 
; *V=0 
*0fl 

*D 

*B 

*/P 

*4T 



At this point the punch has the edited PERPAR. 

Or to build a load module of BASIC with strings for a partial 
configuration of the LPS, one that includes the ADC, DIS, and 
CLK but excludes the DIO with the LPS interrupts at 340 
(octal) , the following instructions should be given the 
editor : 

*I H 

*Ci H 

*R 

*H 

; $C:flPS = 

: $C:flPS=0 

*0R 

*D 

.: $LPS = 
.: *LPS = 

t=0fl 

.f:D 

$010=0 
*DIO=0 
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*0R 



At this point r the punch has the edited PERPAR. 

Load PAL-llS. It is used to generate FTBL, PERVEC , and PTSINT object 
tapes. When PAL-11 has been loaded, put the edited PERPAR tape in the 
high-speed reader and answer the following questions. 



PAL- 


-lis 


*S 


H 


*B 


H 


*L 


P 


*T 


P 



The PERPAR tape is now read. 

EOF? When EOF? is printed, remove the PERPAR tape and put 
the FTiBL source tape in the high-speed reader. Then 
type carriage return. 

END? When END? is printed, remove the FTBL source tape and 
insert the PERPAR tape in the high-speed reader. When 
ready, type a carriage return. 

EOF? When EOF? is printed, remove the PERPAR tape and 
replace it with the FTBL source tape. (Note that both 
tapes ace loaded twice in the assembly process.) 

000000 ERRORS 

PAL-llS 

*S When *S is printed, the new FTBL object tape is in the 
high-speed punch and may be removed. It is this tape 
(called FTBL) that will be used in the linking process 
to generate a new load module. 

PAL-llS 

These steps are then repeated using the PERPAR and PERVEC tapes to 
produce a PERVEC object tape and then repeated again using the PERPAR 
and PTSINT tapes to produce a PTSINT object tape. 

Building the load module is accomplished by using LINK-llS. The 
bottom address specified should be 400. 

Link the object tapes in the following order. 

BASICL.OBJ 
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FPMP.OBJ 

PTSINT.OBJ 

PERVEC.OBJ 

FTBL.OBJ 

LPSO.OBJ 

LPSl.OBJ or ARDl.OBJ 

LPS2.0BJ or ARD2.0BJ (for 60 Hz line frequency) 

LPS2C.0BJ or ARD2C.0BJ (for 50 Hz line frequency) 

LPS3.0BJ or ARD3.0BJ 

LPS4.0BJ 

PTSNST 

BASICH.OBJ 

If $STRNG was left unchanged when editing PERPAR, BASICL with strings 
must be used. If a semicolon was inserted before $STRNG, BASICL for 
no string must be used. 

Exclude the optional files for which a semicolon was inserted before 
the appropriate conditional in PERPAR. In the example given for a 
configuration not including the DIO, do not include LPS3.0BJ in the 
linking process. 

To assemble the LPS from the sources the following procedure should be 
followed : 

Load PAL-llS. It is used to generate LPSO, LPSl, LPS2, LPS3, and LPS4 
binary tapes. Put the LPSO source tape in the high speed reader. 
Enter the following commands 

PAL-llS 

*S H 

*B H 

*L P 

*T P The tape is now read. 

END? Re-insert the tape in the reader, press <CR> 

000000 

PAL-llS 

*S 
Repeat this procedure for the LPSl, LPS2(LPS2C), LPS3, and LPS4 source 
tapes or if the line frequency is 50 Hz, LPS2 should be assembled by 
the following procedure (LPSO, LPS1,LPS3, and LPS4 are still assembled 
as described above) . Load ED-11 (the PDP-11 Paper Tape Software 
Editor) with the absolute loader, then create a parameter tape as 
follows : 

*I H 

*0 H 

*I 
CYC50=0 

.EOT 

*B 

*/P 

*4T 



B-3 4 



BUILDING LOAD MODULES 



Load the PAL-llS assembler and insert the tape created by the above 
commands. Follow this procedure: 



PAL- 


■lis 


*s 


H 


*B 


H 


*L 


P 


*T 


P 


EOF; 


) 


END? 


) 


EOF; 


) 


000000 


PAL- 


-lis 


*s 





Insert the LPS2 source tape and press <CR>. 

Insert the tape created by the editor and press 

<CR>. 

Insert the LPS2 source tape and press <CR>. 



At this point the LPS2 binary tape is in the 
high-speed punch. 



The following table lists the assembly parameters for each module: 



Source File 

LPSO.MAC 

LPSl.MAC 

LPS 2. MAC 

LPS 3. MAC 

LPS 4. MAC 

VT55.MAC 
Source File 

FTBL.MAC 



PERVEC.MAC 



Conditionals 

None 

$AR11 
$CAPS 

CYC50 

$AR11 
$CAPS 

$AR11 

None 

VT55 
Conditionals 

$ADC 
$CLK 
$DIO 
$DIS 
$LPS 

$VT11 
$DISK 
$VT55 

$LPS 
$V 

$VT11 
$AR11 
$DR11K 
$NUMBR=X 

OFFSTl 



0FFST2 



Define for Systems with ; 



ARll hardware 
PTS hardware 

50Hz line frequency (60 
Hz is default) 
ARll hardware 
PTS hardware 

ARll hardware 



VT55 terminal 

Define for Systems with: 

LPSl 

LPS2 

LPS3 

LPS4 

$LPSO (all systems with 

LPS support) 

VTll support 

RT-11 

VT55 support 

LPSll hardware 

LPS interrupts not at 

location 340 (octal) 

VTll support 

ARll hardware 

DRll-K hardware 

Multiple (X) DRll-K 

hardware 

First DRll-K interrupt 

address not at 167770 

(octal) 

First DRll-K vector 
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address not at 300 
(octal) 

PTSINT.MAC $DIS LPS4 

To include ARll, simply define $AR11 in addition to $CAPS symbols in 
PERPAR source tape. 
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APPENDIX C 
ERROR MESSAGES 



This appendix suminar izes the error messages that may occur when using 
BASIC Extensions call routines. See Appendix P of the RT-11 System 
Reference Manual for all error messages that may occur under the RT-11 
system. 



?ADC 



?ARG 



?BUF 



?DEV 



?DSP 



ERROR AT LINE XXXXX 
BASIC Ext Fatal 



ERROR AT LINE XXXXX 
BASIC Fatal 



ERROR AT LINE XXXXX 
BASIC Ext Fatal 



Cannot issue ADC command while an RTS 
operation is underway. 



Arguments in a function call do not match 
(in number or in type) the argument defined 
for the function. 



Buffer name given in LPS command has not 
been previously defined in a USE statement. 



ERR-C 

BASIC Ext Non-fatal The device specified is illegal. 



ERROR AT LINE XXXXX 
BASIC Ext Fatal 



?DVO ERROR AT LINE XXXXX 
BASIC Fatal 



.DEVICE list space overflow. Redefine 
DSPSIZ in PERPAR.MAC and reassemble 
FTBL.MAC. 



Program attempted to divide some quantity 
by 0. 



?NOR ERROR AT LINE XXXXX 

BASIC Ext Fatal Number out of range. 

?SYN ERROR AT LINE XXXXX 

BASIC Fatal The program has encountered an 

unrecognizable statement. Common syntax 
errors are mispelled commands and unmatched 
parentheses, and other typographical 
errors . 

?UNF ERROR FUNCTION AT LINE XXXXX 

BASIC Fatal The function called was not defined by the 

program or was not loaded with BASIC. 
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Term Definition 

Analog Numbers represented by directly measurable quantities 
(as voltages, resistances, or rotations). 

Auto-gain Software determination of the best switch gain value to 
use sampling analog data using the LPSAM-SG option. 

Bipolar Refers to a signal that is either positive or negative 
with respect to system ground. 

Buffer A temporary storage area which may be a special 
register or an area of storage. 

Clock A time-keeping or frequency-measuring device within the 

computer system. 

DMA Direct Memory Access. The DMA is attached to any 

PDP-11 allowing memory data storage or retrieval at 
memory cycle speeds without processor intervention. 

Gain An increase in signal power. Gain in the ratio of 

output power to input power. 

Global A value defined in one program module and used in 
others. Globals are often referred to as "entry 
points" in the module in which they are defined and 
"externals" in the other modules which use them. 

Initialize To set counters, switches, addresses and variables to 
zero or other starting values. 

Library A collection of standard routines which can be 
Routine incorporated into larger programs. 

Mass Storage Pertaining to a device such as a disk or DECtape which 
stores large amounts of data readily accessible to the 
central processing unit. 

Overflow A condition that occurs when a mathematical operation 
yields a result whose magnitude is larger than the 
program is capable of handling. 

Parameter A variable or an arbitrary constant appearing in a 
mathematical expression, each value of which restricts 
or determines the specific form of the expression. 
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Preamplifier An electronic circuit or device that detects and 
sufficiently amplifies weak signals. 

Source file A file to be used as input to a translating program 
such as MACRO or BASIC. 
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